🚀 go-pugleaf

In a general form used by several other forms I defined a function
reference like this [Delphi 1]:

      type
        TCheckFunc = function (FldNr: integer): Boolean;
        TSetParam = class(TForm)
          ....      
        public
          CheckStatus: TCheckFunc;
        end;

In several of my forms I now want to do something like this:

      type
        TForm1 = class(TForm)
          Button1: TButton;
          procedure Button1Click(Sender: TObject);
        private
        public
          function Form1Check (FldNr: integer): Boolean;
        end;

      implementation
      {$R *.DFM}

      procedure TForm1.Button1Click(Sender: TObject);
      var frm: TSetParam;
      begin
      frm:=TSetParam.create(self);
      frm.CheckStatus:=Form1Check;    { doesn't work! WHY? }
      frm.showmodal;
      frm.Release;
      end;


      function TForm1.Form1Check (FldNr: integer): Boolean;
      begin
      { set to True or False according to specific conditions : }
      result:=True;  
      end;


Alas, there is something wrong with this... The compiler says that the
assignment
      frm.CheckStatus:=MyCheck;
is an invalid function/procedure reference. What's wrong with this?



Thanks for any hints!

Thomas