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:     function AsJsonArray: TJSONArray;
    end;
  
    {$IFDEF DELPHI_2010}
    TJsonObjectHelper = class helper for TJsonObject
    public
      function Get(const PairName: UnicodeString): TJSONPair; overload;
  
negative.code:   Result := StrToInt64(ToString);
  end;
  
  {$IFEND}
  
  end.
  