anchor.diff:    function Sanitize(AData: String): string;
     begin
       Result := AData;
  -    Result := StringReplace(Result, '" :', '":', [rfReplaceAll]);
  -    Result := StringReplace(Result, '": ', '":', [rfReplaceAll]);
  +    //Result := StringReplace(Result, '" : ', '":', [rfReplaceAll]);
  +   // Result := StringReplace(Result, '": ', '":', [rfReplaceAll]);
     end;
   
   var
  
positive.code:   Result := Name;
  end;
  
  {$IFDEF DELPHI_2010}
  { TJsonObjectHelper }
  
  function TJsonObjectHelper.Get(const PairName: UnicodeString): TJSONPair;
  
negative.code:     function AsJsonArray: TJSONArray;
    end;
  
    {$IF defined(DELPHI_2010) or defined(DELPHI_XE)}
    TJsonObjectHelper = class helper for TJsonObject
    public
      function Get(const PairName: UnicodeString): TJSONPair; overload;
  