DSProps = packed record
  szName: MIDASPATH;
  iFields: Integer;
  iRecBufSize: Integer;
  iBookMarkSize: Integer;
  bReadOnly: LongBool;
  iIndexes: Integer;
  iOptParams: Integer;
  bDelta: LongBool;
  iLCID: Integer;
  iUnused: packed array[0..7] of Integer;
end;

struct DSProps {
  MIDASPATH szName;
  int iFields;
  int iRecBufSize;
  int iBookMarkSize;
  LongBool bReadOnly;
  int iIndexes;
  int iOptParams;
  LongBool bDelta;
  int iLCID;
  packed array[0..7] of Integer iUnused;
};