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