Procedimiento Como Parametro

[ecfisa]

Hola.

El error se produce por que estas asignando a la propiedad BtnOk un procedimiento normal y no un mètodo de clase.

En un TForm agrega un TButton y un TEdit y proba este ejemplo:

Código Delphi [-]
...
type
  TFrmMensaje = class(TForm)
    Button1: TButton;
    Edit1  : TEdit;
    procedure FormCreate(Sender: TObject);
  private
    FBtnOk : TNotifyEvent;
    procedure MiProc(Sender: TObject);
  public
    property BtnOk: TNotifyEvent read FBtnOk write FBtnOk;
  end;

var
  FrmMensaje: TFrmMensaje;

implementation  

procedure TFrmMensaje.MiProc(Sender: TObject);
begin
  ShowMessage(TControl(Sender).Name); 
end;

procedure TFrmMensaje.FormCreate(Sender: TObject);
begin
  BtnOk           := MiProc;
  Button1.OnClick := BtnOk;
  Edit1.OnClick   := BtnOk;
end;
...

Tal vez tambièn te puede interesar este enlace : Punteros de Metodos

Saludos