Problem mit TInterfaceList

[Die Muhkuh]

Hi Daniel,

geht leider auch nicht. Bekomme immernoch eine AV an der gleichen Stelle.

Delphi-Quellcode:

procedure Tfmain.PlugInClick(Sender: TObject);
var
  mApp: TApp;
  iPlg: IPlugIn;
begin
  mApp := TApp.Create;

  PlugInList[(Sender as TTBXCustomItem).Tag].QueryInterface(IPlugIn, iPlg);  // <<<--- AV!

  if Assigned(iPlg) then
  begin
    iPlg.Execute(mApp);
  end;

  iPlg := nil;

  FreeAndNil(mApp);
end;