[openssl] InitSSLInterface should returns True, if ssl is initialized already

unit openssl;
...
function InitSSLInterface(Const aSSLName, acryptoName : AnsiString) : Boolean;

begin
  Result:=SSLLoaded;
  if Result then
    exit;
  EnterCriticalSection(SSLCS);
  try
    if SSLloaded then
      Exit;   // !!!!!!!!!!!!!!!!!!!  should be Exit(True) here

System Information

• Operating system: Windows/Linux
• Compiler version: trunk (27a2a042)
• Device: Computer

Steps to reproduce

multiple threads should initialize openssl simultaneously to run into this bug