Update Horse.BasicAuthentication.pas

Author: viniciussanchez

src/Horse.BasicAuthentication.pas

@@ -34,7 +34,8 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: TProc);
   LBasicAuthenticationDecode: TStringList;
   LIsAuthenticated: Boolean;
 begin
-  if not Req.Headers.TryGetValue(Header, LBasicAuthenticationEncode) and not Req.Query.TryGetValue(Header, LBasicAuthenticationEncode) then
+  LBasicAuthenticationEncode := Req.Headers[Header];
+  if LBasicAuthenticationEncode.Trim.IsEmpty and not Req.Query.TryGetValue(Header, LBasicAuthenticationEncode) then
   begin
     Res.Send('Authorization not found').Status(401);
     raise EHorseCallbackInterrupted.Create;