anchor.diff:        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
  +      AHandler(vResponse)
       else
       begin
         {$IFDEF UNICODE}
  
positive.code:   TRestOnRequestEvent = procedure (ARestClient: TRestClient;
      AResource: TResource; AMethod: TRequestMethod) of object;
  
  
    THTTPErrorEvent = procedure(ARestClient: TRestClient; AResource: TResource;
      AMethod: TRequestMethod; AHTTPError: EHTTPError;
  
negative.code:   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
  