framety

type framety = record

  case Integer of

    0: (

        left: Integer;

        top: Integer;

        right: Integer;

        bottom: Integer;

      );

    1: (

        topleft: sizety;

        bottomright: sizety;

      );

end;