Como obtener la hora y fecha de otro equipo

[roman]

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:

Código Delphi [-]
IdTCPClient1.Connect;

y en su evento OnConnect pones:

Código Delphi [-]
Edit1.Text := IdTCPClient1.ReadString(8); // <-- el 8 es la longitud de la cadena
IdTCPClient1.Disconnect;

En las demos de las INDY viene este ejemplo mucho más completo (Basic ClientServer demo)

// Saludos