怎樣調用adoquery的onWillChangeRecord事件！

Question

我寫了一個過程如下
 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'
以上這個錯誤!好象是最後一個參數有錯！
大蝦們快快幫助啊