Получаем IP адрес из 2ip.ru

[alex0097]

ребят помогите отредактировать код. не работает.

procedure TForm1.Button1Click(Sender: TObject); 
var 
s:string; 
x: integer; 
begin 
S:= Idhttp1.get('http://www.2ip.ru/'); 
S:= Copy(s, Pos( 'd_clip_button">' , s) + 8 , 50); 
x:= pos('<', S); 
S:=Copy (s, 0,x-1); 
showmessage('Ваш ip :'+ S); 
Form1.label1.Caption:='Ваш ip :'+ S; 
end;

[Alex11223]

procedure TForm1.Button1Click(Sender: TObject); 
var 
s:string; 
x: integer; 
begin 
S:= Idhttp1.get('http://icanhazip.com/'); 
showmessage('Ваш ip :'+ S); 
Form1.label1.Caption:='Ваш ip :'+ S; 
end;

[alex0097]

Alex11223 спасибо большое. не знаю как поставить +++. вообщем спасибо