🚀 go-pugleaf

(Delphi 2007) 
Zaimportowałem pliki TLB, miedzy innymi mam taki DispInterface (fragment):

_ISearchSessionEvents = dispinterface
  ['{E421B6DF-86ED-47ED-8EFE-54D69BFA4D7D}']
  ...
  procedure Progress(Progress: Integer; const pSearchSession: ISearchSession); 
  dispid 1;
  ...
  procedure TrackAvailable(Type_: SearchTypeEnum; const pResult: ITrack; const 
  pSearchSession: ISearchSession); dispid 4;
  ...
end;

Jest to fragment API do obsługi kontrolki ActiveX. Kontrolka jest zainstalowana wszystko już działa. Muszę wykonać operację wykorzystującą ww. dispinterface. Metody Progress i TrackAvailable są wykonywane automatycznie w przypadku gdy poszukiwanie przyniesie oczekiwany efekt.
Nie wiem jak mam się do nich dostać? Mam przykłady w C#, gdzie te metody są podpięte do zdarzeń, ale muszę to przenieść do Delphi. 
Nie można zrobić tak:
  Interface2 = interface(_ISearchSessionEvents)
  end;
ani tak:
  Interface3 = class(TInterfacedObject, _ISearchSessionEvents)
  end;
Próbowałem również podstawić swoją metodę np. MyTrackAvailable
procedure My_TimelineAvailable(Type_: SearchTypeEnum; const pResult:                                 ITimeline; const pSearchSession: ISearchSession);
a potem w programie:
var
  obi: _ISearchSessionEvents;
i dalej:
  obi.TrackAvailable := My_TrackAvailable;
też nic z tego.

Proszę o wskazówkę, jak się dostać do tych metod żeby móc odczytać przesłąne do nich parametry z ich wnętrza?


Pozdrawiam
MW