Função pra capturar IP

Função pra capturar IP

Código:

Function MeuIP:string;
var
site: string;
begin
site := Form1.IdHTTP1.Get('http://meuip.datahouse.com.br');
MeuIP := Copy(site, Pos('', site) +215, 13);
end;

Exemplo de Uso :
Coloque dois componente idHTTP(paleta indy Clients) e uma Label .
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=(MeuIp);
end;