TRectF

type TRectF = packed record

public

  property Width: Single; [r]

  property Height: single; [r]

  procedure Offset();

  case Integer of

    0: (

        Left: Single;

        Top: Single;

        Right: Single;

        Bottom: Single;

      );

    1: (

        TopLeft: TPointF;

        BottomRight: TPointF;

      );

end;