[Ildar-tsr]

Код:

If not ADOConnection.Connected then
  try
    ADOConnection.Active:= true;
  except
    ShowMessage('Не удалось установить связь!');
  end;