Asignar Evento

[[maeyanes]]

Hola...

Para asignar un evento en tiempo de ejecución se hace así:

Código Delphi [-]
TMyForm = class(TForm)
private
  procedure DoBtnClick(Sender: TObject);
public
  constructor Create(AOwner: TComponent); override;
end;

implementation

constructor TMyForm.Create(AOwner: TComponet);
begin
  inherited;
  Button1.OnClick := DoBtnClick
end;

procedure TMyForm.DoBtnClick(Sender: TObject);
begin
  // Hacer algo...
end;

Saludos...