TAreaInfo

type TAreaInfo = record

  VctrTbl: PSmallInt;

  VctrPtr: PSmallInt;

  FlagTbl: PShortInt;

  FlagPtr: PShortInt;

  Count: SmallInt;

  MaxCount: SmallInt;

  FirstX: SmallInt;

  FirstY: SmallInt;

end;