Hola, en primer lugar, utiliza los eventos OnConnect, OnDisconnect y OnError para enviar avisos de conexion y desconexion.
Y segundo, Cliente.Address, es la direccion local del cliente, no la del host remoto, asumiendo que el componente que usas es ClientSocket y ServerSocket.
Cliente.Host:=direccion_remota_del_servidor;
Cliente.Port:=puerto_utilizado;
Saludos.
__________________
Código Delphi [-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
|