TValue

type TValue = record

public

  rawVal: Double;

  unitType: TUnitType;

  procedure Init;

  procedure SetValue();

  function GetValue();

  function GetValueXY();

  function IsValid;

  function IsRelativeValue();

  function HasFontUnits;

  function HasAngleUnits;

end;