[NumLock]

1. банально:

Код:

if Socket.ReceiveText='$connect' then Socket.SendText('$try');

в OnClientRead
2. использовать TServerClientThread
3. самому мультиплексировать клиентов (Socket.Data)