Приложение зависает при обращении к IdHTTP1.Get

[sasha_gavrithing]

Добрый день! Срочно нужна помощь по одному вопросу.
Ниже описанная функция проверяет подключение к Интернету - возвращает True, если доступ к Интернету есть, иначе False. Всё проходит отлично, когда все устройства(WiFi, LAN) включены и доступ к интернету имеется или когда все адаптеры отключены. Но когда, допустим, включен адаптер Wi-Fi и нет доступного подключения к Интернету, программа зависает на некоторое время.

Помогите разобраться с этой проблемой.

function GetInetConnect: Boolean;
var
 IdHTTP1: TIdHTTP;
 Thread1: TThread;
begin
   dwConnectionTypes:=INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
   Result:=InternetGetConnectedState(@dwConnectionTypes, 0);
   if Result then begin
     Application.ProcessMessages;
     IdHTTP1:=TIdHTTP.Create;
     Thread1:=TThread.Create;
     IdHTTP1.ConnectTimeout:=15000;
     IdHTTP1.Request.UserAgent:=('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0');
      try
        IdHTTP1.Get('http://automation.whatismyip.com/n09230945.asp');
     except
        Result:=false;
      end;
     IdHTTP1.Free;
     Thread1.Free;
   end;
end;

[Пепел Феникса]

читаем про потоки или асинхронность(хотя один фиг).

idhttp блокирующий компонент.

[sasha_gavrithing]

Сообщение от Пепел Феникса

читаем про потоки или асинхронность(хотя один фиг).

idhttp блокирующий компонент.

Спасибо. Теперь понял в чём была проблема))