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
end;
Saludos...