[Delphi_new_skill]

Товарищи! Подскажите, как узнать, доступен ли в сети удаленный сервер MS SQL через определенные промежутки времени ?
В клиентском приложении используется ADOconnection, с помощью которого нужно через каждые 10-15 минут проверять доступ к удаленной БД, если база оказалазь доступной - выдавать на экран сообщение, если нет - обратно отложить проверку доступа через 10-15 минут.

[Appolon]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 timer1.Enabled:=False;
  if adoconnection1.conected then showmessage('База данных доступна')
  else timer1.Enabled:=True
end;