我这样连接不存在的SQL SERVER 2000 为什么程序没有反应？(100分)

我用以下代码在程序主窗口的CREATE事件中连接一个局域网内关闭了的SQL SERVER 2000，
为什么程序没有任何反应，也不报错，用2000的任务管理器查看程序仍然在运行？？？
我的代码：
S_serveraddress:='192.168.0.10'; //服务器固定地址
ADOConnection.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;'
+'Persist Security Info=False;Initial Catalog=TESTSQLDATA;'
+'Data Source='+S_serveraddress;

try
ADOConnection.Connected := True;
except
On E:Exception do
begin
showmessage('数据库连接失败，请与系统管理员联系。'+E.Message);
halt ;
end;
end;
以上代码在SQL服务器打开时一切正常，但如果服务已关闭，则程序出现上述情况，请高手帮忙！

连接需要时间，特别是在网络不畅或者连接被中断的时候，这时程序往往要重试几次后才
会返回错误信息，比如不能连接等。
解决的办法，将上面的程序放在一个线程中执行，就不会发生主界面不响应的问题了。

TO:WWW
谢了，刚才调整了一下TIMEOUT数量，现在好了。

接受答案了.