TSchemaType = record
  TypeName: WideString;
  NameSpace: WideString;
  TypeInfo: PTypeinfo;
  NSPrefix: WideString;
  XSGenerated: Boolean;
end;

struct TSchemaType {
  BSTR TypeName;
  BSTR NameSpace;
  PTypeinfo TypeInfo;
  BSTR NSPrefix;
  Boolean XSGenerated;
};