diff --git a/packages/fcl-web/src/websocket/fpwebsocketserver.pp b/packages/fcl-web/src/websocket/fpwebsocketserver.pp
index 9398208ea6..2c6a51a1a7 100644
--- a/packages/fcl-web/src/websocket/fpwebsocketserver.pp
+++ b/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;