Runtime Objekt & Event

[theomega]

Hallo Leute,
ich hab folgenden Code in einer zweiten Unit:

Delphi-Quellcode:

var WinAmpCtr1: TWinAmpCtr;

procedure TrackChange(Sender: TObject);
begin;

end;

procedure init;
begin;
WinAmpCtr1 := TWinAmpCtr.create(nil);
WinAmpCtr1.OnPlayChange:=TrackChange;


end;

init wird von der haupt-unit aus aufgerufen. Dummerweise wird die Unit nicht kompliert, weil er das mit der Zuweisung der Funktion zu dem Event nicht mag. Die Ausführung stimmt auf jeden Fall, was komisch ist, ist, dass OnPlayChange vom Typ TNotifyEvent ist, wie wandel ich eine Procedure darin um?

Danke für ein bischen Hilfe
TO