procedure TForm1.getip;

var

response:string;

begin

   idHTTP1:=TIdHTTP.Create;

   idHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';

   idHTTP1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';

   idHTTP1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';

   idHTTP1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';

   response:=IDHttp1.Get('http://spys.ru/check/');

   myip:=copy(response,Pos('REAL_IP=',response)+25,Pos('HTTP_VIA',response)-36-Pos('REAL_IP=',response));

   idHTTP1.free;

   idHTTP1.Free;

 end;

function TForm1.GetInternetIP: string;

begin    //IdHTTP: TIdHTTP;

  Result := idHTTP.Get('http://www.whatismyip.com/automation/n09230945.asp');

  ///переделать на создаваемый и уничтожаемый  в процедуре объект.

end;