[Вовка]

Код:

function IsConnectedToInternet: Boolean;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState (@dwConnectionTypes, 0);
end;

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If IsConnectedToInternet then
begin
IdHTTP2.HandleRedirects:=true;
data:=IdHTTP2.Get('http://fegorsk.ru/script/time.php?zapros=784');// сдесь пишет что ошибка из за socket error#10057
maskedit1.Text:=Copy(data, Pos('%', data) + 1, 8);
end
else
begin
showmessage('провертье  соединение интернета');
timer1.Enabled:=false;
end;
end ;