[delphi.com.ar]

No le estas prestando atención a mi segundo mensaje... Fíjate este detalle del ejemplo que te pasé:

procedure TForm1.OnButtonClick(Sender: TObject);
begin
  ShowMessage('Click!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TButton.Create(Self) do
  begin
    Parent := Self;
    Caption := 'Botón';
    OnClick := OnButtonClick;
  end;
end;

Ese procedimiento es un método de una clase!

Saludos!