/********Averiguo la IP Externa***********/
NMHTTP1->Get("http://www.zoneedit.com/checkip.html");//pido la página
AnsiString S = NMHTTP1->Body;//copio el cuerpo de la página
S.Delete(1,111); //elimino todo el texto que no es necesario hasta llegar al ip
//que yo x tantearlo ya se que va desde 1 a 111!
S=S.SubString(0,15);//Obtengo el ip que consta de 15 caracteres
Label5->Caption=S; //Lo muestro
/********Averiguo la IP Externa***********/