* When InitContext fails, TSSLSocketHandler.Connect should return false.

git-svn-id: trunk@36851 -

packages/fcl-net/src/sslsockets.pp

@@ -221,7 +221,8 @@ end;
 function TSSLSocketHandler.Connect: Boolean;
 begin
   Result:=Inherited Connect;
-  if Result and InitContext(False) then
+  Result := Result and InitContext(False);
+  if Result then
     begin
     Result:=CheckSSL(FSSL.SetFD(FSocket.Handle));
     if Result then