procedure TForm1.Button1Click(Sender: TObject);
var
Button: TButton;
begin
Button:=TButton.Create(Form1);
Button.Parent:=Form1;
Button.Left:=Random(Form1.ClientWidth-Width);
Button.Top:=Random(Form1.ClientHeight-Height);
Button.Caption:='Button';
end;