有关TClientSocket的问题，如何来处理超时，请高手来看看，很着急！！

[喜欢编程朋友]

我现在很着急，请各位高手来帮帮忙呀。
我遇到的问题是：
用TClientSocket来连接服务端，定时发送数据（每天8：00），然后服务端将今天数据再返回给客户端的TClientSocket上，客户端接收数据通过TClientSocket的OnRead事件里。8:00发送数据后如果超时了没有接到数据，重复发送三次，如果都没有收到数据，就向备用服务器发送命令数据，这是我的思路确保每天都能接收到今天的数据，不能丢失，所以就要用到超时了，客户接收数据在TClientSocket的OnRead事件里执行。
我现在不知道怎样来做这个？怎样来实现我的这种思路？并且Socket的超时时间在哪里设置？Socket的超时多长时间为最好呢？
请高手们给我一个思路，讲一下怎么做的，我现在非常急需，如果有例子那是最好的了。我的E-mail:[e-mail] 最好能给我一下例子，在此非常感激了。
我的初步想法如下：

定时发送写在Timer里面：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//发送数据；
end;
接收数据：
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
//接收当天的数据；
end;
但是这样一来，怎么来处理超时问题呢？如果超时了就要重发了，这些怎么实现呢？？急需等待

[winter_6677]

帮你顶！我不知道这个问题的难度如何，但是，点数好像少了点。

[winter_6677]

否则的话不可能两天都没人回复的。

[喜欢编程朋友]

对不起呀，各位高手，我的点数太少了，没有办法呀，我也想给的多一点呀。请高手们不要只看中点数吗？我实在是没有点数了，全部拿出来了。