[fpc-pascal] Implementing an interface force me to add _AddRef, _Release

[Zaher Dirkey]

IMyIntf = interface
  function GetValue: Variant;
end;

TMyObject=(TList, IMyIntf)
  ....
end;

Can not compile becuase it need to add this functions to TMyObject

         function QueryInterface(const iid : tguid;out obj) : longint;stdcall;
         function _AddRef : longint;stdcall;
         function _Release : longint;stdcall;

While i am not inherit IMyIntf from IUnknown or IInterface, Is there a
way to not add unnecessary functions (for me at least).

Sorry for my bad English, and Thanks in advance.

-- 
Zaher Dirkey