Delphi 7 中，如何快速判断SQL是否能连接上？？

Delphi 7 中，如何快速判断SQL是否能连接上？？ 
谢谢各位！！

  with DM do
  begin
    Conn.Connected := False;
    Conn.ConnectionString := Connstring;
    try
      Conn.Connected := True;
    except
      Application.MessageBox('Server connect error!!',cp_Main,MB_OCE);
    end;
  end;

你这个只是先断开再重新连接一下，如果SQL服务是没有开启的话还是会很慢的
如何判断SQL是否连接，提高判断速度？？？ 

你可以把ADOConnection.ConnectionTimeOut设定为1，这样会比较快，或者你可以直接判断SQL服务是否启动（本机）。

虽然把连接时间调短了，不过你在测试的时候还是会发现连接时间非常慢。

这个问题的关键是你想要多快？秒级？毫秒级？
本人觉得毫秒级是不可能的了。。。
秒级的话，还得看你的本机反应时间，服务器反应时间，网络状态等，一秒能判断出来就不错了。想要更快不可能啊。
把ADOConnection.ConnectionTimeOut设定得太小也不好，有时候因为服务器响应时间及网络的问题，得好几秒才能连接得上。

可以用1433端口是否打开来判断sql服务是否停止或链接