Replacing warning number with warning abbreviation + Removing unused code

Source commit: e3b036fd99d4a6278273bec7863aaf9473bca2e7

source/forms/Authenticate.cpp

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

source/windows/WinInterface.cpp

@@ -1621,10 +1621,6 @@ void __fastcall WinInitialize()
   OnApiPath = ApiPath;
   MainThread = GetCurrentThreadId();
   Application->OnGetMainFormHandle = MakeMethod<TGetHandleEvent>(NULL, AppGetMainFormHandle);
-
-#pragma warn -8111
-#pragma warn .8111
-
 }
 //---------------------------------------------------------------------------
 void __fastcall WinFinalize()