当前接口的计数

Question

怎么取得当前接口的计数的值
  var
    MyObject: TMyObject;
    MyIntf, MyIntf2: IInterface;
  begin
    MyObject := TMyObject.Create;  // 创建 TMyObject 对象
    MyIntf  := MyObject;           // 将接口指向 MyObject 对象
    MyIntf2 := MyIntf;             // 接口指针的赋值
　　showmessage(inttostr(PInteger(self+));//=1   ????????????????
  end;

Answer 1

TMyObject？
是从哪里继承的？

Answer 2

myintf2 = interface(myintf)
myobject = class(TInterfacedObject,MyIntf)