方法: 
var 
MyBu : TBUTTON; 
begin 
MyBu:=TBUTTON.Create(Form1); 
MyBu.Parent:=Form1; 
MyBu.Left:=10; 
MyBu.Top:=10; 
MyBu.OnClick:=MyOnClick; 
MyBu.Show; 
end; 
注:MyOnClick为响应的事件过程.