传递函数而不是调用它(Delphi)

TFrmMainForm = class(TForm,IFrmMainFormInterface)
  public
    procedure Display(Sender:TObject); 
end;

界面是

IFrmMainFormInterface = interface
  procedure Display(Sender:TObject);
end;

另一堂课

TMainFormViewModel = class
    strict private
      fTimer : TTimer;
      function GetOnTimer : TNotifyEvent;
      procedure SetOnTimer(timerEvent : TNotifyEvent);
    public
      property OnTimer : TNotifyEvent read GetOnTimer write SetOnTimer;
end;

implementation

function TMainFormViewModel.GetOnTimer : TNotifyEvent;
begin
    Result := fTimer.OnTimer;
end;

procedure TMainFormViewModel.SetOnTimer(timerEvent : TNotifyEvent);
begin
    fTimer.OnTimer := timerEvent;
end;

我有一个Form MainForm的实例和视图模型类MainFormViewModel

我想试试

MainFormViewModel.OnTimer := IFrmMainFormInterface(MainForm).Display

问题是这给我一个错误信息

Not enough actual parameters

我相信这是因为delphi试图调用显示功能而不是将其分配给OnTimer事件.我不知道如何解决这个问题,我尝试使用@运算符但没有成功.

编辑

我应该补充一点,MainForm在这个函数中被声明为

procedure Initialise<T:Class,IFrmMainFormInterface>(MainForm : T);

procedure TController.Initialise<T>(MainForm : T);
begin
    MainFormViewModel.OnTimer := IFrmMainFormInterface(MainForm).Display ;
end;