我為窗體加了一個事件，可是老出錯，大家來看看，謝謝!

[aderly]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB;

type
TForm1 = class(TForm)
ADOQuery1: TADOQuery;
private
FOnEnd: TOnEndEvent; { Private declarations }
public
{ Public declarations }
end;
Published
property OnEnd: TOnEndEvent read FOnEnd write FOnEnd;
TOnEndEvent = procedure(Data: TCustomADODataSet) of object;//是不是位置不對？？
var
Form1: TForm1;

implementation

{$R *.dfm}

end.

[hjf8086]

报什么错？
private
TOnEndEvent = procedure(Data: TCustomADODataSet) of object;//
FOnEnd: TOnEndEvent;

是不是该这么写？

[何鲁青]

不要放到publish里面
改道private或者public里面都可以