TBorder

type TBorder = record

  LeftEdge: SmallInt;

  TopEdge: SmallInt;

  FrontPen: Byte;

  BackPen: Byte;

  DrawMode: Byte;

  Count: ShortInt;

  XY: PSmallInt;

  NextBorder: PBorder;

end;