* Merging revisions r45722 from trunk:

    ------------------------------------------------------------------------
    r45722 | ondrej | 2020-07-03 15:14:38 +0200 (Fri, 03 Jul 2020) | 1 line
    
    fphttpserver: fix endless loop in case of open connections
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46590 -

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;