anchor.diff:    Result := ParseJSONValue( TEncoding.ASCII.GetBytes(JSONObject) );
   end;
   
  -function TPCJSONData.ToJSON(pretty: Boolean): AnsiString;
  +function TPCJSONData.ToJSON(pretty: Boolean): String;
   begin
     Result := ToJSONFormatted(pretty,'');
   end;
  
positive.code:     FFreeValue : Boolean;
      procedure SetValue(const Value: TPCJSONData);
    protected
      Function ToJSONFormatted(pretty:Boolean;const prefix : AnsiString) : AnsiString; override;
    public
      Constructor Create(AName : String);
      Destructor Destroy; override;
  
negative.code: end;
  
  procedure TPCJSONData.SaveToStream(Stream: TStream);
  Var s : RawByteString;
  begin
    s := ToJSON(false);
    Stream.Write(s[Low(s)],Length(s));
  end;
  
  class function TPCJSONData.ParseJSONValue(Const JSONObject: String): TPCJSONData;
  