TControlData = record
  ClassID: TGUID;
  EventIID: TGUID;
  EventCount: Longint;
  EventDispIDs: Pointer;
  LicenseKey: Pointer;
  Flags: DWORD;
  Version: Integer;
  FontCount: Integer;
  FontIDs: PDispIDList;
  PictureCount: Integer;
  PictureIDs: PDispIDList;
  Reserved: Integer;
  InstanceCount: Integer;
  EnumPropDescs: TList;
end;

struct TControlData {
  TGUID ClassID;
  TGUID EventIID;
  Longint EventCount;
  void * EventDispIDs;
  void * LicenseKey;
  DWORD Flags;
  int Version;
  int FontCount;
  PDispIDList FontIDs;
  int PictureCount;
  PDispIDList PictureIDs;
  int Reserved;
  int InstanceCount;
  TList EnumPropDescs;
};