Yo use un TPowerSock
y lo llame PwsAgenteLe asigne el host y el puerto.
es un ejemplo:
PwsAgente->Host= "207.77.1.43";
PwsAgente->Port=80;
y después;
try {
PwsAgente->Connect();
Sistema.IPAddress = PwsAgente->LocalIP;
PwsAgente->Disconnect();
}
catch(...) {
return false;
}
Intentale ojalá te sirva.