动态创建的TButton如何写它的单击事件以及调用?

Question

创建如下:
这个button3的作用是改变窗体的caption.
如何写它的单击事件以及调用?
var Button3:TButton;procedure TForm1.FormCreate(Sender: TObject);
begin
  Button3:=TButton.create(self);
  Button3.Parent := self;
  Button3.Left := 100;
  Button3.Caption := '改变标题'
end;

Answer 1

procedure TForm1.NewClick(Sender:TObject)
begin
  close;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Button3:=TButton.create(self);
  Button3.Parent := self;
  Button3.Left := 100;
  Button3.Caption := '改变标题'
  BUtton3.OnClick:=NewClick;
end;

Answer 2

type
  TForm1 = class(TForm)
    procedure sclick(sender:TObject);//要自己加入的
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  s:tbutton;//声明一个按钮
implementation{$R *.dfm}
procedure Tform1.sClick(Sender: TObject);//按钮的单击过程
begin
  showmessage('create');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  s:=tbutton.Create(self);//创建按钮
  s.Parent:=form1;
  s.Caption:='button2';
  s.Left:=110;
  s.Top:=110;
  s.OnClick:=sclick;//这一行让按钮的单击事伯去调用sclick过程
end;
end.