rectextty

type rectextty = record

  case Integer of

    0: (

        left: Integer;

        top: Integer;

        right: Integer;

        bottom: Integer;

      );

    1: (

        topleft: pointty;

        bottomright: pointty;

      );

end;