TRectWH = record
Left : double;
Top : double;
Width : double;
Height : double;
function IsEmpty: Boolean;
function Contains(const pt: TPoint): Boolean; overload;
function Contains(const pt: TPointD): Boolean; overload;
function Right: double;
function Bottom: double;

For Delphi compilers that don't support record methods (ie compilers prior to D2006), this structure is defined as an old style object instead of a record.