anchor.diff:  var
     vStringStream: TStringStream;
   begin
  -  vStringStream := TStringStream.Create(Content);
  +  vStringStream := TStringStream.Create(Content, TEncoding.UTF8);
     try
       Result := Post(vStringStream);
     finally
  
positive.code: var
    Stream: TStringStream;
  begin
    Stream := TStringStream.Create(Content);
    try
      Result := Delete(Stream);
    finally
  
negative.code:   {$ENDIF}
      vRawContent := TJsonUtil.Marshal(Entity);
  
    vStream := TStringStream.Create(vRawContent, TEncoding.UTF8);
    try
      vStream.Position := 0;
      FContent.CopyFrom(vStream, vStream.Size);
  