Merge pull request #12 from HashLoad/Adjusted-Bug-ContainsKey

Fix bug ContainsKey

Author: dliocode

src/Horse.BasicAuthentication.pas

@@ -85,9 +85,7 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
     Exit;
   end;
 
-  LBasicAuthenticationEncode := '';
-  if Req.Headers.ContainsKey(Config.Header) then
-    LBasicAuthenticationEncode := Req.Headers.Items[Config.Header];
+  LBasicAuthenticationEncode := Req.Headers[Config.Header];
 
   if LBasicAuthenticationEncode.Trim.IsEmpty and not Req.Query.TryGetValue(Config.Header, LBasicAuthenticationEncode) then
   begin
@@ -188,4 +186,4 @@ function THorseBasicAuthenticationConfig.SkipRoutes: TArray<string>;
   Result := FSkipRoutes;
 end;
 
-end.
+end.