Yo creo que el problema está en esta variable....
Código Delphi
[-] vBotonOnClick : TNotifyEvent;
¿No debería estar declarado como un procedimiento?
Código Delphi
[-]
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure vBotonOnClick(Sender: TObject); private
public
end;
var
Form1: TForm1;
Boton: Tbutton;
implementation
{$R *.DFM}
procedure TForm1.vBotonOnClick(Sender: TObject);
var
Texto: string;
begin
texto := (Sender as TButton).caption;
ShowMessage('Botón <'+texto+'> presionado');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Boton := TButton.create(Form1);
Boton.Parent := Form1;
Boton.Caption := 'Hola';
Boton.Height := 120;
Boton.Left := 20;
Boton.Width := 130;
Boton.Enabled := True;
Boton.visible := True;
Boton.OnClick := vBotonOnClick; end;