关于连接数据库不能捕获连接异常的问题？

Question

我用ADOConnection连接SQL SERVER数据库，用ADOConnection测试连接是否成功。想在连接成功后提示连接成功的信息，在连接失败后提示连接失败的信息。用Try...except捕获连接失败的异常，但在连接失败后来总是先提示系统的异常信息之后才运行我的except后的代码，不知怎么解决。付代码如下：
  ADOConnection1.ConnectionString :='连接字符串';
  try
    ADOConnection1.Open;
    application.MessageBox('测试连接成功！', '测试连接', MB_OK);
    ADOConnection1.Close ;
  except
    on E:EoleException do
      begin
        application.MessageBox('测试连接失败！', '测试连接', MB_OK);
        ADOConnection1.Close ;
      end;  
  end;

Answer 1

在delphi之外运行程序就可以了
或者更改delphi的配置,不让delphi捕获异常