ADOQuery连接不成功的异常如何捕捉？如何设置connect timeout?

Question

try
    ADOQuery1.Active := true;
  except
    MessageDlg('连接数据库不成功，请联络管理员！', mtInformation, [mbOk], 0);
  finally
    ADOQuery1.Active := false;
  end;  

Answer 1

1.
try
    ADOQuery1.Active := true;
except
    MessageDlg('连接数据库不成功，请联络管理员！', mtInformation, [mbOk], 0);
end;2.
把数值设小一点就是了  

Answer 2

Snakeguo(楠) ，具体哪一个设置？里边有一个connnect timeout，我改了之后重新看，还是没变。
另外except后边就不能跟finally块了吗？

Answer 3

捕捉异常：
try
 ...............
except
 on E:Exception do
 showmessage(E.Message);
end;