* close socket if not accepted. Patch from Mantis 12675 by S. Meyer.

git-svn-id: trunk@13128 -

packages/fcl-net/src/ssockets.pp

@@ -346,6 +346,11 @@ begin
             Stream:=SockToStream(NewSocket);
             DoConnect(Stream);
             end
+          else
+            begin
+            CloseSocket(NewSocket);
+            NewSocket:=-1;
+            end;          
           end
       except
         On E : ESocketError do