anchor.diff:      FValue : String;
     public
       constructor Create(); overload;
  -    constructor Create(aValue : String); overload;
  +    constructor Create(const aValue : String); overload;
   
       property Value : String read FValue write FValue;
     end;
  
positive.code:     FValue : Integer;
    public
      constructor Create(); overload;
      constructor Create(aValue : integer); overload;
  
      property Value : Integer read FValue write FValue;
    end;
  
negative.code:   FValue := '';
  end;
  
  constructor TStringObject.Create(const aValue: String);
  begin
    FValue := aValue;
  end;
  