怎样给一个TDataSet添加BeforePost事件？

[ronaldowz]

......
public
ADataSet: TDataSet;
......
怎样给ADataSet添加BeforePost事件？

[rockswj]

procedure TForm.MyDataSetBeforPost(DataSet: TDataSet);
begin
你的代码；
end;
ADataSet.BeforePost:=MyDataSetBeforePost;