__________如何__动态创建控件
如1,何动态创建控件，2,设置控件属性，3,建立控件相关响应事件，4,执行相关响应事件。？？？？？？

//用代码创建一个按钮
procedure TForm1.FormShow(Sender: TObject);
var
mybutton : TButton ;
begin
mybutton := TButton.Create(Self);
with mybutton do
begin
Parent := form1 ;
Align := altop ;
Caption := '这是一个代码创建的控件' ;
end ;
end;

用代码创建控件，设置控件属性 都好了，

3,建立控件相关响应事件，4,执行相关响应事件， 怎么做呢？
[解决办法]
3,建立控件相关响应事件

procedure TForm1.FormShow(Sender: TObject);
var
mybutton : TButton ;
begin
mybutton := TButton.Create(Self);
with mybutton do
begin
Parent := form1 ;
Align := altop ;
Caption := '这是一个代码创建的控件' ;
OnClick := DoMyButtonClick;
end ;
end;
[解决办法]
4,执行相关响应事件

TForm1 = class;
private
procedure DoMyButtonClick(Sender: TObject);
...
end;

procedure TForm1.DoMyButtonClick(Sender: TObject);
begin
//Do something here......
end;