Delphi中如何快速判断Sql Server服务器是否存在，或者是否正在运行？

现在我设置ConnectionTimeOut和CommandTimeOut这两个都未15，但是一旦sql server服务器关着的话，程序启动时会很慢，一直到跳出链接失败。。而这个时候，用户没有看到软件的界面，老是双击图标，，到最后，连续跳出连接失败的提示，很不人性化，我想在就是想用最快的方法检测sql server服务器是否正常运行，如果运行正常再执行程序，否则就马上直接跳出程序，并告诉用户服务器连接失败！