TRecordData = record
  rdBookmarkFlag: TBookmarkFlag;
  rdFieldCount: Short;
  rdRecordNumber: Long;
  rdCachedUpdateStatus: TCachedUpdateStatus;
  rdUpdateStatus: TUpdateStatus;
  rdSavedOffset: DWORD;
  rdDBKey: TIBDBKey;
  rdFields: array[1..1] of TFieldData;
end;

struct TRecordData {
  TBookmarkFlag rdBookmarkFlag;
  Short rdFieldCount;
  Long rdRecordNumber;
  TCachedUpdateStatus rdCachedUpdateStatus;
  TUpdateStatus rdUpdateStatus;
  DWORD rdSavedOffset;
  TIBDBKey rdDBKey;
  array[1..1] of TFieldData rdFields;
};