Hola Roman,
se me olvidó mencionar que el procedure "genérico" es del TForm1.
Acabo de probar esto y el compilador no se queja... y funciona.
Código Delphi
[-]
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormShow(Sender: TObject);
private
public
procedure Mi_Manejador_de_EventoClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
Button1.OnClick := Mi_Manejador_de_EventoClick;
end;
procedure TForm1.Mi_Manejador_de_EventoClick(Sender: TObject);
begin
ShowMessage('Hola');
end;