深刻理解TNotifyEvent [轉]

function OnButton1Click(Instance, Sender: TObject);
begin
  showMessage(Instance.ClassName);
  showMessage(Sender.ClassName);
end;

var event: TNotifyEvent;

TMethod(event).Data := Button1;
TMethod(event).Code := @OnButton1Click;
Button1.OnClick := event;