临时生成的的控件，如何写响应的时间代码？？？？？？各位高人快救我！

[lgqTiger]

我试用如下代码临时生成一个按钮控件在窗口上，
请问各位高人，如何编写该空间所响应的事件代码？
例如：onChick(...) xiexie
***************************************************************
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var btn1:TButton;
begin
btn1:=TButton.Create(Self);
btn1.Parent:=Self;
btn1.Left:=150;
btn1.Top:=50;
btn1.Width:=90;
btn1.Height:=45;
btn1.Caption:='临时按钮';
end;

end.
***************************************************************
我只有这么多分了，全送出去。。。。。

[dulei115]

procedure TForm1.MyClick(Sender: TObject);
begin
...
end;

procedure TForm1.FormCreate(Sender: TObject);
var btn1:TButton;
begin
btn1:=TButton.Create(Self);
btn1.Parent:=Self;
btn1.Left:=150;
btn1.Top:=50;
btn1.Width:=90;
btn1.Height:=45;
btn1.Caption:='临时按钮';
btn1.OnClick := MyClick;
end;

[Erice]

先定义一个btnbase的按扭控件的事件，然后将事件赋值于临时控件
procedure TForm1.FormCreate(Sender: TObject);
var btn1:TButton;
begin
btn1:=TButton.Create(Self);
btn1.Parent:=Self;
btn1.Left:=150;
btn1.Top:=50;
btn1.Width:=90;
btn1.Height:=45;
btn1.Caption:='临时按钮';
btn1.OnClick := btbaseclick;
end;

[lgqTiger]

谢谢上面的两位大哥
俺马上接贴，给分