Compiler warning

(cherry picked from commit b9a6b10109f27c33405de9c23c06c15baf6c13f2)

Source commit: 0c2629e48471cde56787c25ebd8eb0e663790121

source/forms/Authenticate.cpp

@@ -684,7 +684,9 @@ bool TAuthenticateForm::ExtractUrl(const UnicodeString & Text, UnicodeString & U
     P = 1;
     while (P <= Url.Length())
     {
+      #pragma warn -8111
       if (TCharacter::IsWhiteSpace(Url[P]))
+      #pragma warn .8111
       {
         Url.SetLength(P - 1);
       }