procedure TForm1.MyButtonClick(Sender: TObject);
begin
  //...
end;

procedure CreateButton;
var
  MyBtn: TButton;
begin
  MyBtn:= TButton.Create(nil);
  MyBtn.OnClick:= Form1.MyButtonClick;
end;

这样清楚了吗？事件本身也是属性，是一个“过程类型”的“属性”！

SupermanTm可真是高手啊.
谢谢.