使用线程快速检测SQL连接的Delphi源码，作者为佬哥，此处仅为转载。