TTypeData is used internally to represent type information.

TTypeData = packed record
  case TTypeKind of
    tkClass: (ClassType: TClass;
              ParentInfo: PPTypeInfo;
              PropCount: SmallInt;
              UnitName: ShortStringBase;);
    tkDynArray: (elSize: Longint;
                 elType: PPTypeInfo;
                 varType: Integer;
                 elType2: PPTypeInfo;
                 DynUnitName: ShortStringBase;);
    tkEnumeration: (BaseType: PPTypeInfo;
                    NameList: ShortStringBase;
                    EnumUnitName: ShortStringBase;);
    tkFloat: (FloatType: TFloatType;);
    tkInt64: (MaxInt64Value: Int64;
              MinInt64Value: Int64;);
    tkLString: (CodePage: Word;);
    tkMethod: (MethodKind: TMethodKind;
               ParamCount: Byte;
               ParamList: array[0..1023] of AnsiChar );
               tkInterface: ( IntfParent : PPTypeInfo; IntfFlags : TIntfFlagsBase; Guid : TGUID; IntfUnit : ShortStringBase;;);
    tkRecord: (RecSize: Integer;
               ManagedFldCount: Integer;);
    tkSet: (CompType: PPTypeInfo;);
    tkString: (MaxLength: Byte;);
    tkWChar: (OrdType: TOrdType;
              MinValue: Longint;
              MaxValue: Longint;);
end;

struct TTypeData {
  Word CodePage;
  TOrdType OrdType;
  Longint MinValue;
  Longint MaxValue;
  PPTypeInfo BaseType;
  ShortStringBase NameList;
  ShortStringBase EnumUnitName;
  PPTypeInfo CompType;
  TFloatType FloatType;
  Byte MaxLength;
  TClass ClassType;
  PPTypeInfo ParentInfo;
  SmallInt PropCount;
  ShortStringBase UnitName;
  TMethodKind MethodKind;
  Byte ParamCount;
  array[0..1023] of AnsiChar ) ParamList;
  ( IntfParent : PPTypeInfo; IntfFlags : TIntfFlagsBase; Guid : TGUID; IntfUnit : ShortStringBase; tkInterface;
  Int64 MaxInt64Value;
  Int64 MinInt64Value;
  Longint elSize;
  PPTypeInfo elType;
  int varType;
  PPTypeInfo elType2;
  ShortStringBase DynUnitName;
  int RecSize;
  int ManagedFldCount;
};