* Fix wrong return value in case of multithreaded initialize. Fixes issue #40676

packages/openssl/src/openssl.pas

@@ -5859,7 +5859,7 @@ begin
   EnterCriticalSection(SSLCS);
   try
     if SSLloaded then
-      Exit;
+      Exit(True);
     Result:=LoadLibraries(aSSLName,aCryptoName);
     if Not Result then
       begin