From f67cbabdc676223510fcf27640b5d9ebc8d57068 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 17 Apr 2015 13:35:41 +0000
Subject: [PATCH] * 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 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-web/src/base/fphttpclient.pp b/packages/fcl-web/src/base/fphttpclient.pp
index d649ff6472..98c6bf20c3 100644
--- a/packages/fcl-web/src/base/fphttpclient.pp
+++ b/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;