Rect

type Rect = record

  case SInt16 of

    0: (

        top: SInt16;

        left: SInt16;

        bottom: SInt16;

        right: SInt16;

      );

    1: (

        topLeft: Point;

        botRight: Point;

      );

end;