TVarArray = packed record
  DimCount: Word;
  Flags: Word;
  ElementSize: Integer;
  LockCount: Integer;
  Data: Pointer;
  Bounds: TVarArrayBoundArray;
end;

struct TVarArray {
  Word DimCount;
  Word Flags;
  int ElementSize;
  int LockCount;
  void * Data;
  TVarArrayBoundArray Bounds;
};