anchor.diff:      class function JSONToRecord<T: record>(const AJSON: TJSONObject;
         const AFilterProc: TToRecordFilterProc = nil): T;
       class function TValueToJSON(const AName: string; const AValue: TValue): TJSONObject;
  +    class function TValueToJSONValue(const AValue: TValue): TJSONValue;
     end;
   
     function StringArrayToJsonArray(const AStringArray: TArray<string>): TJSONArray;
  
positive.code:   end;
  end;
  
  
  function StringArrayToJsonArray(const AStringArray: TArray<string>): TJSONArray;
  var
  
negative.code: procedure TJSONObjectHelper.WriteTValue(const AName: string;
    const AValue: TValue);
  begin
    AddPair(AName, TValueToJSONValue(AValue));
  end;
  
  procedure TJSONObjectHelper.WriteUnixTimeValue(const AName: string;
  