anchor.diff:  
       class function NewFrom(AList: TList; AItemClass: TClass): IJsonListAdapter;
     end;
  +
  +  TRestClient = class;
  +
  +  TRestOnRequestEvent = procedure (ARestClient: TRestClient; AResource: TResource; AMethod: TRequestMethod) of object;
   
     TRestClient = class(TComponent)
     private
  
positive.code: 
      ResourceRequest.GetContent.Position := 0;
  
      case Method of
        METHOD_GET: FHttpConnection.Get(vUrl, vResponse);
        METHOD_POST: FHttpConnection.Post(vURL, ResourceRequest.GetContent, vResponse);
        METHOD_PUT: FHttpConnection.Put(vURL, ResourceRequest.GetContent, vResponse);
        METHOD_PATCH: FHttpConnection.Patch(vURL, ResourceRequest.GetContent, vResponse);
        METHOD_DELETE: FHttpConnection.Delete(vUrl, ResourceRequest.GetContent);
      end;
  
      if Assigned(AHandler) then
  
negative.code:   protected
      procedure Loaded; override;
    public
      OnBeforeRequest: TRestOnRequestEvent;
      OnAfterRequest: TRestOnRequestEvent;
  
      constructor Create(Owner: TComponent); override;
      destructor Destroy; override;
  
  