如何捕捉数据库连接异常？

为何捕捉不到数据库连接错？比如网路不通造成的无法连接
try
  dm.OraSession1.open;
except
  On Exception do //这句好像没有啥用
  MessageDlg( 'there is an error here', mtError, [mbOk], 0);
end;