delphi 局域网程序中如何感知某一服务器无法联接并尝试联接到另一服务器(200分)

delphi 两层C/S结构，NT4.0+WIN98。
1、联网正常下运行客户端程序，怎样感知网络是否通断？
如网上证券客户端在断网时，提醒网约已断开。
2、能否有办法在某一SQL SERVER 服务器断网时,
应用程序能自动联接到另一有同样数据库的服务器?
如MDAS多层分布式应用中,应用程序服务器分发在多台机上,
某一机器有问题则转向另一机器的应用程序服务器。

1、客户端设置一个定时器，每隔一定的时间就向服务器端发送一 ping 消息（自己
设置格式就行，最好带有客户端IP，以备第二个问题），服务器端一旦收到 ping
消息， 就向客户端应答。如果客户端在一段时间（自己定）内收不到应答消息，则
可以认为是短连。
2、短连以后，客户端自己改变服务器地址（客户端可以维护一个地址表，专门用来存放
服务器端的地址，可以利用服务器广播的形式动态增加以及删除），向新的服务器端
发送握手消息，如果成功，则正常运行；否则转向下一个服务器。

to klak
能否给予程序代码，谢谢？