定义VMP结构体
type
PVmt = ^TVmt;
TVmt = record
SelfPtr: TClass;
IntfTable: PInterfaceTable;
AutoTable: PAutoTable;
InitTable: PInitTable;
TypeInfo: PTypeInfo;
FieldTable: PFieldTable;
MethodTable: PMethodTable;
DynMethodTable: PDynMethodTable;
ClassName: PShortString;
InstanceSize: LongInt;
ClassParent: ^TClass;
SafeCallException: Pointer;
AfterConstruction: Pointer;
BeforeConstruction: Pointer;
Dispatch: Pointer;
DefaultHandler; Pointer;
NewInstance: Pointer;
FreeInstance: Pointer;
Destory: Pointer;
end;