谁说说TNotifyEvent的使用？

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('同一个事件');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  OnClick := Button1.OnClick;
end;

Answer 1

type
  TNotifyEventTest = procedure(Sender: TObject); //普通函数类型type
  TNotifyEvent = procedure(Sender: TObject) of object; //类函数类型

Answer 2

procedure TForm1.Button1Click(Sender: TObject); //和TNotifyEvent匹配
begin
  ShowMessage('同一个事件');
end;procedure ButtonTestClick(Sender: TObject); //和TNotifyEventTest匹配
begin
  ShowMessage('同一个事件');
end;

Answer 3

to :zswang
能不能给一个完整的例子？谢谢！