动态创建一个ADOQUERY，那么它的AfterOpen等事件如何写？

RT，
谢谢！

private
  procedure xx(DataSet: TDataSet);

procedure tform1.xx(DataSet: TDataSet);
begin
 ...
end;

procedure tform1.button1Click(Sender: TObject);
var
  Q:TADOQuery;
begin
  Q:=TADOQuery.Create(nil);
  Q.AfterOpen:= xx; 
end;