ну я пользуюсь такой конструцией
Type Player
Field stream
End Type
port=989789
tcp=CreateTCPServer(port)
repeat
pot=AcceptTCPStream(tcp)
If pot Then
p.Player=New Player
p\stream=pot
;создаем новый тип и записываем поток
;тут размещаем код когда подключается клиент
EndIf
For p.player=Each player
If ReadAvail(p\stream) Then
com$=ReadLine(p\stream)
;здесь проверяем не пришло ли сообщение , и если пришло то читаем его
endif
next
until keyhit(1)
end
P.S может такая конструкция не совсем правельная