动态指定事件过程(比较精典)

默认情况下，Delphi的事件处理函数必须是一个类成员，不过可以通过以下的办法骗过系统，使用普通过程处理事件：
procedure Test(dummy: Integer; Sender: TObject);
begin
  ShowMessage('Hello, World!');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  M : TMethod;
begin
  M.Code := @Test;
  Button1.OnClick := TNotifyEvent(M);
end;