Procedimiento Como Parametro

[Neeruu]

Hola a todos...

Quería saber si en Delphi se puede hacer algo así y como:

Código Delphi [-]
      FrmMensaje.BtnOk      := (Procedure (Sender:TObject)
                                begin
                                  FrmMain.RaEdit_ClienteNro.SetFocus;
                                End);

Donde BtnOk del Formulario FrmMensaje esta definido asi:

Código Delphi [-]
property BtnOk:TNotifyEvent read neBtnOk write neBtnOk default nil;

Al compilar el proyecto me dice:

[DCC Error] E2009 Incompatible types: 'method pointer and regular procedure'

En resumen, necesito pasar un procedimiento como parámetro y me gustaría definirlo directamente en el parámetro...
Es posible?

Saludos...