tIClass

type tIClass = record

  cl_Dispatcher: tHook;

  cl_Reserved: ULONG;

  cl_Super: pIClass;

  cl_ID: ClassID;

  cl_InstOffset: Word;

  cl_InstSize: Word;

  cl_UserData: ULONG;

  cl_SubclassCount: ULONG;

  cl_ObjectCount: ULONG;

  cl_Flags: ULONG;

end;