绕过(禁用)Delphi对接口的引用计数

type
  IMyInterface = interface(IInterface)
    ['{12345678-90AB-CDEF-1234-567890ABCDEF}']
    procedure MyMethod;
  end;

  TMyClass = class(TInterfacedObject, IMyInterface)
  private
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  public
    procedure MyMethod;
  end;

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

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