También podrías usar las componentes Indy. Un ejemplo rápido:
En el servidor colocas una aplicación "Server" en la que usas una componente TIdTCPServer. A esta componente le asignas un puerto accesible desde fuera, digamos:
Código Delphi
[-]
IdTCPServer1.Port := 1245;
En su evento OnConnect pones:
Código Delphi
[-]
AThread.Connection.Write(FormatDateTime('hh:mm:ss', Time));
y corres la aplicación asegurándote de que IdTCPServer1.Active está en
true.
En la aplicación cliente pones una componente TIdTCPClient a la que asignas el mismo puerto que al servidor.
Cuando quieras leer la hora pones:
y en su evento OnConnect pones:
Código Delphi
[-]
Edit1.Text := IdTCPClient1.ReadString(8); IdTCPClient1.Disconnect;
En las demos de las INDY viene este ejemplo mucho más completo (Basic ClientServer demo)
// Saludos