delphi 生成按钮

//窗体Form1，onMouseDown事件

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);
 var
    Btn: TButton;
begin
    Btn:= TButton.Create(Self);
    Btn.Parent:=Self;//在特定的例子中，用Form1和Self是一样的。（只存在一种容器）
    Btn.Top := Y;
    Btn.Left := X;
    Btn.Width :=Btn.Width+50;
    Btn.Caption :='Button at '+InttoStr(x) +' '+InttoStr(y);
    //Btn.Caption :=Format('Button at %d %d',[X,y]); 两种方式得到的caption是一样的


end;