[[Lepe]]

Código Delphi [-]
procedure TForm1.CrearBoton;
var
nuevoboton:Tbutton;
begin
nuevoboton:=tbutton.Create(self);
with nuevoboton do
  begin
  top:=  32;
  width:=121;
  left:= width * (self.ControlCount -0);
  parent:=self;
  caption:='boton';
  OnClick := BotonEjecucion;
  end ;
end;

procedure TForm1.BotonEjecucion(Sender:TObject);
begin
  ShowMessage (Tbutton(Sender).caption + ' ha sido pulsado');
end;

En lo sucesivo, tienes que crear un procedimiento con los mismos parámetros que lleve el evento que quieres asignar. En este caso es un TNotifyEvent que solo lleva el parámetro Sender. El nombre del procedimiento, puede ser el que más coraje te dé .

Saludos