Cuando se usa el servidor WebSocket de Indy para conexiones TCP, por defecto el evento OnConnect solo se dispara después de recibir el primer mensaje porque no hay forma de filtrar si la conexión es TCP plano, websocket, HTTP... en los casos en los que se espera que todas las conexiones sean TCP, ahora puedes gestionar el evento OnTCPConnect y establecer el transport a trpTCP. Al hacer esta acción, el evento OnConnect se disparará automáticamente (sin esperar a recibir el primer mensaje).
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean); begin aConnection.Transport := trpTCP; Accept := True; end;