DSIDXDesc = packed record
  szName: MIDASNAME;
  iFields: Integer;
  iKeyFields: DSKEY;
  iKeyLen: Integer;
  bUnique: LongBool;
  bDescending: DSKEYBOOL;
  bCaseInsensitive: DSKEYBOOL;
end;

struct DSIDXDesc {
  MIDASNAME szName;
  int iFields;
  DSKEY iKeyFields;
  int iKeyLen;
  LongBool bUnique;
  DSKEYBOOL bDescending;
  DSKEYBOOL bCaseInsensitive;
};