Wenn du den Indy-WebSocket-Server für TCP-Verbindungen verwendest, wird das OnConnect-Ereignis standardmäßig erst nach Empfang der ersten Nachricht ausgelöst, da nicht erkannt werden kann, ob die Verbindung reines TCP, WebSocket, HTTP... ist. In Fällen, in denen alle Verbindungen TCP sein sollen, kannst du jetzt das Ereignis OnTCPConnect behandeln und den Transport auf trpTCP setzen. Wenn du das tust, wird das Ereignis OnConnect automatisch ausgelöst (ohne auf die erste Nachricht warten zu müssen).
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean); begin aConnection.Transport := trpTCP; Accept := True; end;