[Appolon]

Код:

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