Obtener la IP pública

[acertij022]

Yo lo que aria es conectarme atravez de idHTTP a una pagina externa el cual te diga de que ip venis ejemplo los proxyJudge (http://www2.dokidoki.ne.jp/tomocrus/...eck/prxjdg.cgi)
seria algo asi

Código Delphi [-]
Function MyIP():string;
var
Html,ADDR:string;
begin
Html:=idHTTP.Get('http://www2.dokidoki.ne.jp/tomocrus/cgi-bin/check/prxjdg.cgi');
if pos('REMOTE_ADDR',uppercase(Html))>0 then
               begin
               ADDR:=copy(Html,pos('REMOTE_ADDR',uppercase(Html))+11,length(Html));
               ADDR:=copy(ADDR,1,pos(#10,ADDR)-1);
               str1:='';
               for int1:=1 to length(ADDR) do if ADDR[int1]in['0'..'9','.'] then Str1:=Str1+ADDR[int1];
               ADDR:=Str1;
               end;
Result:=ADDR;
end;

Espero haber sido de ayuda