[Tadeus]

Я могу ошибаться, но по-моему функция должна быть такой:

Function read_sockets()
 For consock.TConnection = Each TConnection
  If ReadAvail(consock\tcpstream)>0 Then
   packet = ReadLine(consock\tcpstream)
   Print packet
   WriteLine(consock\tcpstream,"You message OK")
  EndIf
 Next
End Function

И в клиенте:

tcp = OpenTCPStream("127.0.0.1",7777)
If tcp Then
 Print "connected"
Else
 Print "not connected"
EndIf
While True
 If ReadAvail(tcp)>0 Then
  packet = ReadLine(tcp)
  Print packet
 EndIf
 Input Mesage$
 WriteLine(tcp,Mesage)
 Delay 25
Wend

Если я правильно все понял...

ЮПД: Ах да, сервак ждет каждый раз нового клиента вроде. Ты должен записывать куда-нибудь указатель на поток )