[mobiliti]

Возникает ошибка, если интернета нет, или его принудительно вырубить, а вот и сама ошибка: Soket Error # 11001 Вопрос как её перехватить чтобы выключить? Или посоветуйте хорошую функцию для проверки интернет соединения. Перерыл весь интернет, пробовал логические функции Windows

INTERNET_CONNECTION_MODEM ;
INTERNET_CONNECTION_LAN ;
INTERNET_CONNECTION_PROXY ;
INTERNET_CONNECTION_MODEM_BUSY ;

ДА они показывают статус интернет соединения, но есть очень большое ‘но’ чтобы поменялся статус соединения надо перегрузить мое приложение, это мне не подходит, мне надо, что бы статус соединения проверялся каждую секунду. Всем спасибо, особенно кто, поможет по делу)

Код:

function CheckInternetConnection(Host: string='google.com'; Port: integer=80; Timeout: integer=1000): boolean;
  var TCP: TIdTCPClient;
begin
  TCP:=TIdTCPClient.Create(nil);
  try
    TCP.Host:=Host;
    TCP.Port:=Port;
    TCP.ConnectTimeout:=Timeout;
    try
      TCP.Connect;
      Result:=TCP.Connected;
    except
      Result:=false;
    end;
  finally
    TCP.Free;
  end;
end;