diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp
index 71bc5276eb..a811d6d326 100644
--- a/packages/fcl-net/src/ssockets.pp
+++ b/packages/fcl-net/src/ssockets.pp
@@ -333,6 +333,7 @@ Var
 
 begin
   FAccepting := True;
+  NoConnections := 0;
   Listen;
   Repeat
     Repeat
@@ -341,7 +342,7 @@ begin
         If NewSocket>=0 then
           begin
           Inc (NoConnections);
-          If DoConnectQuery(NewSocket) Then
+          If FAccepting and DoConnectQuery(NewSocket) Then
             begin
             Stream:=SockToStream(NewSocket);
             DoConnect(Stream);