[Assistant]

реализация от одного из участника форума, смысл думаю понятен будет:

Код:

procedure TMainForm.Button1Click(Sender: TObject);
var
  site: string;
  n1,n2: integer;
begin
  site:=IdHTTP1.Get('http://www.myip.ru/get_ip.php?loc=');
  n1:=pos('<TD bgcolor=white align=center valign=middle>',site);
  n2:=pos('</TABLE></TD></TR>',site);
  Edit1.text:=copy(site,n1+45,n2-n1-56);
end;