Как узнать внешний IP адрес

Memo1->Lines->Text= IdHTTP1->Get('http://www.2ip.ru')

AnsiString page;
page=IdHTTP1->Get("http://moi-ip.ru");
//Memo1->Lines->Add(page);
page.Delete(1,page.Pos("Ваш IP"));\\удаляем все к строки Ваш IP
page.Delete(1,page.Pos("<span>")+5);удаляем все после строки Ваш IP + <span>
ip=page.SubString(1,page.Pos("<")-1);\\ парсим ип

Memo1->Lines->Text= IdHTTP1->Get("http://www.2ip.ru");

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Lines->Text= IdHTTP1->Get("http://www.2ip.ru/");
}
//---------------------------------------------------------------------------

IdHTTP1->ProxyParams->ProxyServer = "172.16.1.254";
IdHTTP1->ProxyParams->ProxyPort = 8080;