* fix memory leak in TFPPooledConnectionHandler

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

@@ -250,6 +250,7 @@ Type
     Procedure CloseSockets; override;
     procedure CheckRequests; override;
     Constructor Create(aServer : TFPCustomHttpServer); override;
+    Destructor Destroy; override;
     Procedure HandleConnection(aConnection : TFPHTTPConnection); override;
     function CreatePool : TFPCustomSimpleThreadPool;
     Property Pool : TFPCustomSimpleThreadPool Read FPool;
@@ -564,6 +565,12 @@ begin
   FPool:=CreatePool;
 end;
 
+destructor TFPPooledConnectionHandler.Destroy;
+begin
+  FreeAndNil(FPool);
+  inherited Destroy;
+end;
+
 procedure TFPPooledConnectionHandler.ScheduleRequest(aConnection: TFPHTTPConnection);
 
 begin