怎么样动态创建控件?(10分)

上面

以前的帖子里有
去查查先~~

我帮你贴出来
var Test: Tbutton1;
procedure bt01Click
begin
Test := Tbutton1.Create(form1);
Test.Parent := Form1;
Test.Top := 100;
Test.Height := 100;
Test.Caption := 'Ok';
Test.OnClick := ....
end;