关于InstanceSize,一个令我困惑的问题

最近看到code6431写的一篇文章《Interface Designing》，访问地址是：
http://home.pchome.com.tw/guide/code6421/Interface2.htm其中我对里面的一个实例的一段代码感到比较困惑，如下：constructor TptRIO.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);  InnerComp1:=TComponent.Create(AOwner);  RP:=GenVTable(InnerComp1);  InnerComp:=Nil;  InnerClass:=Pointer(Integer(RP)+76);  FRefCount:=0;
end;function TptRIO.GenVTable(obj:TObject):Pointer;
var
   P,LP,vmt:Pointer;
begin
   vmt:=PPointer(obj)^;   P:=Pointer(Integer(vmt)-76);   GetMem(LP,obj.InstanceSize+76); //？？   CopyMemory(LP,P,76+obj.InstanceSize);   Integer(LP^):=Integer(LP); //？？   Result:=LP;
end;文中给出的解释是：GenVTable 函式會複製一份與傳入的obj 相同的VMT Table
其中我对obj.InstanceSize+76感到不理解，obj.InstanceSize+76指的是VMT Table的大小吗？InstanceSize在Delphi的帮助中说的是对象产生的实例的大小吗？VMT表的的大小包括其负向的76位的偏移所指的那些表吗？一个对象实例的大小包括其VMT表的大小吗（我觉得不应该包括）？此处把VMT的大小认定为obj.InstanceSize+76对吗？
 
还有，Integer(LP^):=Integer(LP)使得VMT表的-76位内存的是指向这块内存空间的起始地址，而这里应该存储的是指向该类VMT的指针（偏移位0），尽管通过InnerClass:=Pointer(Integer(RP)+76)使得InnerClass正确的指向VMT表了，可是VMT的-76位所存的地址并没有发生变化！
 
他这个实例的代码我没有编译成功！