fphttpserver: fix endless loop in case of open connections

git-svn-id: trunk@45722 -

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

@@ -905,7 +905,7 @@ begin
     begin
     Sleep(100);
     if (FConnectionCount=FLastCount) then
-      Dec(ACount)
+      Inc(ACount)
     else
       FLastCount:=FConnectionCount;
     end;