anchor.diff:      LResponseStream := TGCMemoryStream.Create;
       try
         ObjectToStream<T>(Client.Request, ARequestEntity, LRequestStream);
  -      Client.Patch(URL, LRequestStream, LResponseStream, CustomHeaders);
  +      InternalHttpRequest(AHttpMethod, LRequestStream, LResponseStream, CustomHeaders);
         StreamToObject(AResponseEntity, Client.Response, LResponseStream);
       finally
         LResponseStream.Free;
  
positive.code:     procedure AfterOPTIONS; virtual;
  
      procedure InitHttpRequest; virtual;
    public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
  
negative.code:   end;
  end;
  
  initialization
  
  RegisterHttpMethodImplementations;
  
  end.
  