Merge branch source:main into main

packages/fcl-web/src/websocket/fpwebsocketclient.pp

@@ -721,6 +721,7 @@ constructor TWSThreadMessagePump.TMessageDriverThread.Create(aPump: TWSThreadMes
 begin
   FPump:=aPump;
   OnTerminate:=aTerminate;
+  FreeOnTerminate:=True;
   Inherited Create(False);
 end;