[fishca]

metallic
Все там есть.
Если тебе вот это:

try
X := Y/Z;
except
on EZeroDivide do HandleZeroDivide;
end;

ни очем не говорит, то лучше и не лезь с TCPSERVER и TCPCLIENT ковырятся