THeapStatus = record
  TotalAddrSpace: Cardinal;
  TotalUncommitted: Cardinal;
  TotalCommitted: Cardinal;
  TotalAllocated: Cardinal;
  TotalFree: Cardinal;
  FreeSmall: Cardinal;
  FreeBig: Cardinal;
  Unused: Cardinal;
  Overhead: Cardinal;
  HeapErrorCode: Cardinal;
end;

struct THeapStatus {
  unsigned TotalAddrSpace;
  unsigned TotalUncommitted;
  unsigned TotalCommitted;
  unsigned TotalAllocated;
  unsigned TotalFree;
  unsigned FreeSmall;
  unsigned FreeBig;
  unsigned Unused;
  unsigned Overhead;
  unsigned HeapErrorCode;
};