procedure TForm1.Button1Click(Sender: TObject);
var
Botao: TButton;
begin
Botao := TButton.Create(nil);
Botao.Parent := Form1;
Botao.Name := 'Botao';
Botao.Caption :='Ok';
end;
end.