TValueRecWH

type TValueRecWH = record

public

  left: TValue;

  top: TValue;

  width: TValue;

  height: TValue;

  procedure Init;

  function GetRectD();

  function GetRectWH();

  function IsValid;

  function IsEmpty;

end;