anchor.diff:      procedure Trim();
       procedure ChangeToBlankIfNull;
   
  -    class function StringToVariant(const aValue : String) : Variant;
  +    class function StringToVariant(const aValue: String): Variant;
  +    class function VariantToString(const aValue: Variant): String;
   
       function AsString : String;
   
  
positive.code:     function AsFloat : Double;
  
      property Value : Double read GetValue write SetValue;
    end;
  
    { TNullableBoolean }
  
negative.code:     procedure Assign(const aValue: String); override; overload;
      function AsVariant: Variant; override;
  
      class function StringToVariant(const aValue: String): Variant;
      class function VariantToString(const aValue: Variant; const aDigits : byte): String;
  
      function CheckIfDifferentAndAssign(const aValue : Variant) : boolean;
  
  