Added a connection event when clients connect to the server.

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

@@ -227,6 +227,8 @@ begin
     begin
     Connections.Add(Con);
     ConnectionHandler.HandleConnection(Con,True);
+    if Assigned(OnConnect) then
+      OnConnect(Sender, Con);
     end;
 end;