anchor.diff:    FValue := Null;
   end;
   
  -constructor TVariantObject.Create(aValue: Variant);
  +constructor TVariantObject.Create(const aValue: Variant);
   begin
     FValue := aValue;
   end;
  
positive.code:     FValue : AnsiString;
    public
      constructor Create(); overload;
      constructor Create(aValue : AnsiString); overload;
  
      property Value : AnsiString read FValue write FValue;
    end;
  
negative.code:   FValue := '';
  end;
  
  constructor TAnsiStringObject.Create(const aValue: AnsiString);
  begin
    FValue := aValue;
  end;
  