如何在Delphi中实现引用计数对象

type
  TRefCountedObject = class(TInterfacedObject, IInterface)
  protected
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

function TRefCountedObject._AddRef: Integer;
begin
  Result := InterlockedIncrement(FRefCount);
end;

function TRefCountedObject._Release: Integer;
begin
  Result := InterlockedDecrement(FRefCount);
  if Result = 0 then
    Destroy;
end;

type
  TRefCountedObject = class(TInterfacedObject, IInterface)
  private
    FRefCount: Integer;
  protected
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

constructor TRefCountedObject.Create;
begin
  inherited Create;
  FRefCount := 1;
end;

var
  obj: TRefCountedObject;
begin
  obj := TRefCountedObject.Create;
  try
    // 使用对象
    // ...
  finally
    obj._Release;
  end;
end;