* destroy FList in the destructor of TFPHTTPServerConnectionListHandler

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

@@ -187,6 +187,7 @@ Type
     Procedure RemoveConnection(aConnection :TFPHTTPConnection); override;
   Public
     Constructor Create(aServer : TFPCustomHTTPServer); override;
+    Destructor Destroy; override;
     Procedure HandleConnection(aConnection : TFPHTTPConnection); override;
     Procedure CloseSockets; override;
     Function GetActiveConnectionCount : Integer; override;
@@ -536,6 +537,13 @@ begin
   Result:=TConnectionList.Create;
 end;
 
+destructor TFPHTTPServerConnectionListHandler.Destroy;
+begin
+  FList.Free;
+
+  inherited Destroy;
+end;
+
 procedure TFPHTTPServerConnectionListHandler.CloseConnectionSocket(aConnection: TFPHTTPConnection; var aContinue: boolean);
 begin
   sockets.CloseSocket(aConnection.Socket.Handle);