Ungültige Typumwandlung!!

[beckz]

Delphi-Quellcode:

procedure popupmenu_language(DVD: TMSWebDVD; PopUpMenu: TPopupMenu; Owner: TForm);
//fügt alle verfügbaren AudioStreams in ein PopUpMenu ein und ruft dieses auf
var
  I: Integer;
  Items: Array[0..50] Of TMenuItem;
  CurPoint: Tpoint;

begin
  PopUpMenu.Items.Clear;

    for I:=0 to DVD.AudioStreamsAvailable-1 do
    begin
      if DVD.IsAudioStreamEnabled(I) then
      begin
        Items[I] := TMenuItem.Create(Owner);
        Items[I].Caption := DVD.GetAudioLanguage(I,true);
          if DVD.CurrentAudioStream = I then
            Items[I].Checked := True;
            Items[I].OnClick := TNotifyEvent(DVD.CurrentAudioStream := I); 
        PopUpMenu.Items.Add(Items[I]);
      end;
    end;

  GetCursorPos(CurPoint);
  PopUpMenu.Popup(CurPoint.x,CurPoint.y);
end;

Schreibe gerade eine Unit die auf MSWEBDVD.dll aufsetzt und nun will ich alle AudioStreams dynamisch in ein PopUpMenu einfügen das funktioniert auch schon nur habe ich das Problem nun wie ich den einzelnen Einträge vermittle was Sie OnClick zu tun haben!

Bekommen die Fehlermedlung "Ungültige Typumwandlung" bei TNotifyEvent(DVD.CurrentAudioStream := I)!

Bitte um Hilfe Danke!