* Fixed memory leak caused by FSocket not being freed if error during connect (bug ID 26959)

git-svn-id: trunk@30619 -

packages/fcl-web/src/base/fphttpclient.pp

@@ -456,7 +456,12 @@ begin
       Aport:=80;
   G:=GetSocketHandler(UseSSL);    
   FSocket:=TInetSocket.Create(AHost,APort,G);
-  FSocket.Connect;
+  try
+    FSocket.Connect;
+  except
+    FreeAndNil(FSocket);
+    Raise;
+  end;
 end;
 
 procedure TFPCustomHTTPClient.DisconnectFromServer;