#160

viniciussanchez · Aug 9, 2023 · cb92cd3 · cb92cd3
1 parent a44409f
commit cb92cd3
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/RESTRequest4D.Request.NetHTTP.pas b/src/RESTRequest4D.Request.NetHTTP.pas
@@ -332,13 +332,13 @@ function TRequestNetHTTP.ClearBody: IRequest;
 function TRequestNetHTTP.ClearHeaders: IRequest;
 {$IF COMPILERVERSION >= 34}
 var
-  I: Integer;
+  LURLHeaders:TNetHeader;
 {$ENDIF}
 begin
   Result := Self;
   {$IF COMPILERVERSION >= 34}
-    for I := 0 to Pred(FNetHTTPClient.CustHeaders.Count) do
-      FNetHTTPClient.CustHeaders.Delete(I);
+    for LURLHeaders in FNetHTTPClient.CustHeaders do
+      FNetHTTPClient.CustHeaders.Delete(LURLHeaders.Name);
   {$ELSE}
     {TODO -oAll -cCustom Headers : Clear headers with NetHTTPClient in versions below of 10.4 Sydney}
   {$ENDIF}