anchor.diff:    FResources.Add(Result);
   end;
   
  +function TRestClient.ResponseCodeRaisesError(ResponseCode: Integer): Boolean;
  +begin
  +  Result := (ResponseCode >= TStatusCode.BAD_REQUEST.StatusCode);
  +end;
  +
   procedure TRestClient.SetVerifyCertificate(AValue: boolean);
   begin
     if FVerifyCert = AValue then
  
positive.code:       METHOD_PATCH: FHttpConnection.Patch(vURL, ResourceRequest.GetContent, vResponse);
        METHOD_DELETE: FHttpConnection.Delete(vUrl, ResourceRequest.GetContent, vResponse);
      end;
      if Assigned(AHandler) then
      begin
        AHandler(vResponse);
      end
      else
      begin
        {$IFDEF UNICODE}
  
negative.code: 
    protected
      procedure Loaded; override;
      function ResponseCodeRaisesError(ResponseCode: Integer): Boolean; virtual;
    public
      OnBeforeRequest: TRestOnRequestEvent;
      OnAfterRequest: TRestOnRequestEvent;
      OnResponse: TRestOnResponseEvent;
  
      constructor Create(Owner: TComponent); override;
      destructor Destroy; override;
  