TIClass

type TIClass = record

  cl_Dispatcher: THook;

  cl_Reserved: LongWord;

  cl_Super: PIClass;

  cl_ID: ClassID;

  cl_InstOffset: Word;

  cl_InstSize: Word;

  cl_UserData: IPTR;

  cl_SubclassCount: LongWord;

  cl_ObjectCount: LongWord;

  cl_Flags: LongWord;

end;