如何使得网络断线后TDatabase能及时检测到并且重新连接？(100分)

用的是ODBC的Oracle数据库后台，用了TDatabase，并且KeepConnection为True
和数据库主机的网络断了一下，然后网络好了，结果程序的Query查询的时候提示
General SQL Error。
我用try Query1.Open except Showmessage('') end;来提示错误，但是这样作要改动
很多TQuery。有没有什么办法让TDatabase及时发现和数据库的连接断线了,避免错误，
并且重新自动连接？谢谢！

rain xp有一个控件可以获得连线的状态，试试看吧

没有其他方法么？