_怎么_动态创建控件

__________如何__动态创建控件
如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;