Henvise en funktion til en anden funktion

Jeg har følgende kode i et konsolprogram:

procedure AddBrowserEvents(const I: Integer);
var
  BrowserEvent: DWebBrowserEvents2;
  ConnectionPoint: IConnectionPoint;
  ConnectionPointContainer: IConnectionPointContainer;
  Cookie: Integer;
begin
  WebBrowsers[I].QueryInterface(StringToGUID('{B196B284-BAB4-101A-B69C-00AA00341D07}'), ConnectionPointContainer);
  ConnectionPointContainer.FindConnectionPoint(DIID_DWebBrowserEvents2, ConnectionPoint);
  ConnectionPoint.QueryInterface(DIID_DWebBrowserEvents2, BrowserEvent);
  ConnectionPoint.Advise(BrowserEvent, Cookie);
  BrowserEvent.Invoke := Invoke;
  InsertAdvertisement(I);
end;

samt en Invoke-funktion:

function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word;
  var Params; VarResult, ExcepInfo, ArgErr: Pointer): Integer;
begin

  .............

end;

Problemet er, at linjen

BrowserEvent.Invoke := Invoke;

fejler med en "Not enough actual parameters".

Håber nogen ved, hvordan man kringler denne.

/Hallandsen