TDSDataPacketFldDesc = packed record
  szFieldName: MIDASNAME;
  iFieldType: Integer;
  iAttributes: Word;
end;

struct TDSDataPacketFldDesc {
  MIDASNAME szFieldName;
  int iFieldType;
  Word iAttributes;
};