TIClass

type TIClass = record

  cl_Dispatcher: THook;

  cl_Reserved: LongWord;

must be 0

  cl_Super: PIClass;

Super Class

  cl_ID: ClassID;

  cl_InstOffset: Word;

where within an object is the instance data for this class?

  cl_InstSize: Word;

Size of instance data

  cl_UserData: PtrUInt;

per-class data of your choice, application specific

  cl_SubclassCount: LongWord;

# of direct suclasses

  cl_ObjectCount: LongWord;

# of objects, made from this class must be 0, if the class is to be deleted

  cl_Flags: LongWord;

Flags (CLF_INLIST)

end;