ايجاد الايبي بالدلفي

var i:integer;
 x,s:ansistring;
 begin
 try 
x:=IdHTTP1.Get('http://checkip.dyndns.org');
 i:= AnsiPos('Address:',x);
; i:=i+9
  while x[i]<>'<' do
 begin s:=s+x[i];
 inc(i); end;
 Edit1.Text:=s; 
finally
 end; end;