怎樣調用adoquery的onWillChangeRecord事件！(50分)

[red] 我寫了一個過程如下
procedure TForm1.AQWChgRecord(MDataSet: TCustomADODataSet;
const MReason: TEventReason; const MRecordCount: Integer;
var MEventStatus: TEventStatus);
begin
end;
我想把這個過程賦給adoquery的onWillChangeRecord事件如下：
var MEvStatus:TEventStatus;
MReas:Teventreason;
adoquery1.onWillChangeRecord:=AQWChgRecord(adoquery2,MReas,adoquery2.RecordCount,MEvStatus);
為什麼會出現
[Error] Unitsz.pas(51): Incompatible types: 'TWillChangeRecordEvent' and 'procedure, untyped pointer or untyped parameter'
以上這個錯誤!好象是最後一個參數有錯！
大蝦們快快幫助啊！[/red]

解决了吗？
好像事件赋值不需要参数，例如：adoquery1.onwillchangerecord:=aqwchgrecord;
就可以了。我没有试过ADO的，但其他的是这样。

謝了！