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
