インターフェイスの混乱を解決する方法

あなたの問題はおそらく、オブジェクト参照を使用してオブジェクトを作成したことに起因します。

var
  MyObject: TObject;
begin
  MyObject := TMyObject.Create;
  ShowMessage('Before ShowObjectID MyObject RefCount: ' + IntToStr(MyObject.RefCount));
  ShowObjectID(MyObject);
  ShowMessage('After ShowObjectID MyObject RefCount: ' + IntToStr(MyObject.RefCount));
end;

これは、作成後のRefCountがゼロであることを意味します。必要に応じてオブジェクトをインタフェース参照に割り当てるか、

var
  MyObject: TMyObject;
  MyIntf: IMyInterface;
begin
  MyObject := TMyObject.Create;
  MyIntf := MyObject;
  ShowMessage('Before ShowObjectID MyObject RefCount: ' + IntToStr(MyObject.RefCount));
  ShowObjectID(MyObject);
  ShowMessage('After ShowObjectID MyObject RefCount: ' + IntToStr(MyObject.RefCount));
  MyIntf := nil;
  ShowMessage('After nilling the interface MyObject RefCount: ' + IntToStr(MyObject.RefCount));
end;

Davidがコメントで示唆したようにrefcountingを無効にするか、無効にします。基本的には、独自の「TInterfacedObject」を宣言し、3つのIInterfaceメソッドを実装することです。

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

本質は、_AddRefと_Releaseの両方で -1 を返すことです。 Davidが言ったように：TComponentがどのようにそれを行うのか見てみましょう。そして、FVCLComObjectがnilのときに行っていることを実行します。

あなたの問題を解決するための1つのアプローチは、コードを変更して、インタフェース参照によってオブジェクトを参照することだけです。言い換えれば、

var
  obj: TMyObject;
...
obj := TMyObject.Create;
try
  obj.DoStuff;
  //etc. etc.
finally
  obj.Free;
end;

あなたが書く

var
  obj: IMyObject;//NOTE: interface variable
...
obj := TMyObject.Create;
obj.DoStuff;
//etc. etc.
obj := nil;//or let it go out of scope and release that way

これは不便なので、代わりに自動生涯管理を無効にする方が便利です。実装するオブジェクトに対してこれを行う必要があります：

type
  TInterfacedObjectWithoutLifetimeManagement = class(TObject, IInterface)
  private
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

function TInterfacedObjectWithoutLifetimeManagement.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
    Result := 0
  else
    Result := E_NOINTERFACE;
end;

function TInterfacedObjectWithoutLifetimeManagement._AddRef: Integer;
begin
  Result := -1;
end;

function TInterfacedObjectWithoutLifetimeManagement._Release: Integer;
begin
  Result := -1;
end;

このクラスからクラスを派生させることができます。

このアプローチには非常に大きな警告が1つあります。 TInterfacedObjectWithoutLifetimeManagement から派生したクラスによって実装されているインタフェースを変数（ローカル、グローバル、クラスメンバ）で保持しているとします。すべてのそのようなインタフェース変数は、実装オブジェクトに対して Free を呼び出す前に確定する必要があります。