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

Question

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

Answer 1

通过ClientSocket1Error事件来处理超时的异常处理！
当
ErrorCode =  10060 时，表示是连接超时，然后重新建立连接。
可以设置一个全局标志位，记录重发次数！
实现起来还是很简单的！procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
beginend;

Answer 2

我是这样处理的，设置一个Datetime 然后用Now去减 做为一个时间差