anchor.diff:  
   { TJSONValueReader }
   
  -function TJSONValueReader.AsObject: TObject;
  -begin
  -  Result := Self;
  -end;
   
   {$ifdef Delphi10Berlin_UP}
   function TJSONValueReader.ReadFrom(const AInputData: TBytes;
  
positive.code: {$endif}
    end;
  
  implementation
  
  uses
  
negative.code:   [Consumes(TMediaType.APPLICATION_JSON)]
    TJSONValueReader = class(TInterfacedObject, IMessageBodyReader)
    public
  {$ifdef Delphi10Berlin_UP}
      function ReadFrom(const AInputData: TBytes;
        const AAttributes: TAttributeArray;
  