E2003 Undefinierter Bezeichner: 'QueryInterface'

[Fritzew]

Leite von TInterfacedObject ab

Delphi-Quellcode:

{ TInterfacedObject provides a threadsafe default implementation
  of IInterface.  You should use TInterfaceObject as the base class
  of objects implementing interfaces.  }

  TInterfacedObject = class(TObject, IInterface)

Diese Methoden werden von einem Interface im normal Fall erwartet :

Delphi-Quellcode:

function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;

und TInterfacedObject stellt Dir diese zur verfügung