tcp-сокеты и tcl

Нужно бы еще раз перечитать маны. Вот примерчик

-----------server.tcl-----------

#!/bin/sh
#\
exec wish  $0

proc query {socket addr port } {
  puts  "Connection from $addr on port $port"
  .a configure -text "Get [gets $socket]"
}

label .a
pack .a
socket -server query 1234

---------------client.tcl----------

#!/bin/sh
#\
exec tclsh $0

set sock [socket localhost 1234]

puts $sock "Hello"


А если придется писать одну из частей на Delphi, то нужно tcl 
протокол воспроизвести, но в этом ничего сложного нет.  Все происходит
по стандартной схеме.