From 79769f0def2cdfcc377b8bd6b78f3c372a10be3c Mon Sep 17 00:00:00 2001
From: CarlosHe <carlos@gabaritocorrigido.com.br>
Date: Fri, 29 Jan 2021 08:56:00 -0300
Subject: [PATCH] warnings removed

---
 src/Horse.CORS.pas | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/src/Horse.CORS.pas b/src/Horse.CORS.pas
index 940fb3c..f92dde0 100644
--- a/src/Horse.CORS.pas
+++ b/src/Horse.CORS.pas
@@ -43,16 +43,13 @@ implementation
   LExposedHeaders: string;
 
 procedure CORS(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED(FPC)}TNextProc{$ELSE}  TProc {$ENDIF});
-var
-  LWebResponse: {$IF DEFINED(FPC)}TResponse{$ELSE}  TWebResponse {$ENDIF};
 begin
-  LWebResponse := THorseHackResponse(Res).GetWebResponse;
-  LWebResponse.SetCustomHeader('Access-Control-Allow-Origin', LAllowedOrigin);
-  LWebResponse.SetCustomHeader('Access-Control-Allow-Credentials', LAllowedCredentials);
-  LWebResponse.SetCustomHeader('Access-Control-Allow-Headers', LAllowedHeaders);
-  LWebResponse.SetCustomHeader('Access-Control-Allow-Methods', LAllowedMethods);
-  LWebResponse.SetCustomHeader('Access-Control-Expose-Headers', LExposedHeaders);
-  if THorseHackRequest(Req).GetWebRequest.Method = 'OPTIONS' then
+  Res.RawWebResponse.SetCustomHeader('Access-Control-Allow-Origin', LAllowedOrigin);
+  Res.RawWebResponse.SetCustomHeader('Access-Control-Allow-Credentials', LAllowedCredentials);
+  Res.RawWebResponse.SetCustomHeader('Access-Control-Allow-Headers', LAllowedHeaders);
+  Res.RawWebResponse.SetCustomHeader('Access-Control-Allow-Methods', LAllowedMethods);
+  Res.RawWebResponse.SetCustomHeader('Access-Control-Expose-Headers', LExposedHeaders);
+  if Req.RawWebRequest.Method = 'OPTIONS' then
   begin
     Res.Send('').Status(THTTPStatus.NoContent);
     raise EHorseCallbackInterrupted.Create();