* Smaller idle timeout

packages/fcl-web/examples/httpserver/simplehttpserver.pas

@@ -26,7 +26,7 @@ Var
 
 procedure THTTPServer.DoIdle(Sender: TObject);
 begin
-  Writeln('Idle, waiting for connections');
+  // Writeln('Idle, waiting for connections');
 end;
 
 procedure THTTPServer.DoWriteInfo(S: string);
@@ -56,7 +56,7 @@ begin
     Serv.MimeTypesFile:='/etc/mime.types';
     {$endif}
     Serv.ThreadMode:=tmThreadPool;
-    Serv.AcceptIdleTimeout:=1000;
+    Serv.AcceptIdleTimeout:=10;
     Serv.OnAcceptIdle:[email protected];
     Serv.WriteInfo:[email protected];
     Serv.KeepAliveEnabled:=True;