Доброго времени суток.

Проблема такая. Надо проверить подключение к БД. После оператора try на строчке "ADOConnection1.Connected:=true" вываливается ошибка. Как быть?

ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Pasport1;Initial Catalog=Pasport';
 try
  ADOConnection1.Connected:=true;
 except
  ShowMessage('Нет связи с базой данных, обратитесь к разработчику');

По телепортатору я так понимаю, ошибка вываливается ПРИ ОТЛАДКЕ ПРОГРАММЫ В СРЕДЕ, так?

А в чём предмет вопроса-то?

try
 ADOConnection1.Connected:=true;
except
 on E:Exception do
  begin
 ShowMessage('А чего это я вдруг решило, что Нет связи с базой данных?, и  обратитесь к разработчику');
 MessageDlg(Format('Когда на самом деле там %s',[E.Message]),mtError,[mbCancel],0);
...
end;

Попыткой соединения с БД нельзя проверить "существование" базы. Причиной ошибки при соединении помимо отсутствия БД может быть:

- нет сервера или он не запущен или в "офлайне"
- нет соединения с сервером (где-то в сети обрыв или "затык")
- нет сетевой карты
- неисправная сетевая карта
- поврежден сетевой провод
- нет прав на сервер
- нет прав на БД
- истекло установленное с параметрах время таймаута