Problema con Sockets

[eflosten]

Cuando pongas código trata de meterlo entre las etiquetas de código delphi, para que se marque como en el editor y todos lo veamos mejor.

No se mucho sobre sockets, pero por tu código y el error que cuentas, el problema es que intentas modificar el socket (en la segunda vuelta del bucle) sin haber cerrado el de la primera vuelta.
Justo antes del final del for, desactiva el socket.

Código Delphi [-]
...
   NombrePC:='';
   FormServidor.ClientSocket1.Active:=False;
   end;
end;

A ver si te sirve, si no tendras que esperar a que venga alguien con mas conocimientos en estos temas

Saludos

[jlsc]

Lo he probado pero no funciona, simplemente ya no manda nada a ninguno, lo he puesto después de sendText y me sale asynchronus socket error. La idea es enviar a uno cerrar el socket luego abrir el socket enviar a otro y luego cerrar asi sucesivamente pero no funciona.

[jlsc]

He detectado que en la parte:

...................
FormServidor.ClientSocket1.Host:=ClientText;
FormServidor.ClientSocket1.Port:=21;
FormServidor.ClientSocket1.Active:=True;
if FormServidor.ClientSocket1.Active then
FormServidor.ClientSocket1.Socket.SendText(Memo1.Text + ' : '+ DateToStr(Date) + ' ' + TimetoStr(Time));
.......................................

FormServidor.ClientSocket1.Active:=True; no me lo pone a true en el watch.

¿alguna idea de porque?