Socket que funciona hasta la segunda vuelta

[Enan0]

Ya vi cual es tu Error te Falta un #13#10 despues del '1'
seria

Código Delphi [-]

......
.....
....Sendtext('1'+#13#10);
....
....
...

Igual aca te dejo un cliente y un servidor esta hecho con los Sockets de la paleta Internet y el codigo es de delphi 5 (seria 100 % compatible con delphi6) cualquier error que te de que Falta algo referente a Variant's , agrega dicha Unit en los uses

http://rapidshare.de/files/37237645/Sockets.rar.html

Saludos
PD; Si podes con Los indy Sockets bueno estaria que los uses. pero la verdad el server de Indy a mi me vuelve loco y lo puedo hacer funcionar como quiero