como crear un boton en ejecucion y ponerle un evento

[jeremiselxi]

var boton: tbutton;
procedure TForm1.FormCreate(Sender: TObject);
begin
Boton := TButton.Create(Self);
Boton.Parent := Form1;
Boton.Left := 250;
Boton.Top := 250;
Boton.OnClick := Saludo;
boton.Caption:='boton creado';
end;

Procedure TForm1.Saludo(Sender : TObject);
Begin
ShowMessage('Hola Mundo');
end;
end.

pero el truco esta en poner el procedimiento k creamos en esta parte

Cristo ls ama a todos gracias a todos por ayudarme