procedure TForm1.Button1Click(Sender: TObject);

var

   ip : string;

begin

        try

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

        except

           // интернета нет или не подключен…

        end;

end;