简单问题，求于高手！

Question

如何动态创建一个按钮，在一个窗体下。
如下：
   一个窗体，原来有两个按钮，我还想动态创建两个，如何实现呀，谢了

Answer 1

....
Var
button1,button2:Tbutton;
....
button1:=Tbutton.create(Form1);
button2:=Tbutton.create(Form1);

Answer 2

举例
procedure TForm1.Button1Click(Sender: TObject);
var
  btn: array[0..1] of TButton;
  i: integer;
begin
  for i := 0 to 1 do
  begin
    btn[i] := TButton.Create(Form1);
    btn[i].Left := 100;
    btn[i].Top := 200 + i * 100;
    btn[i].Width := 100;
    btn[i].Height := 40;
    btn[i].Visible := true;
    btn[i].Parent := Form1;
  end;
end;

Answer 3

var
  ABtn: TButton;
begin
  ABtn := TButton.Create(Self);
  ABtn.parent := Form1;
  ABtn.Left := ;
  ABtn.Top := ;
  ABtn.Left := ;
  ABtn.Caption := ;
  ...
end;

Answer 4

yongwolf(大梦方觉醒)，你拿窗体上button的变量create当然会导致原来的button没有了，要自己定义一个tbutton类型变量然后create。