Socket 多次 Open，出现错误：由于系统缓冲区空间不足或队列已满，不能执行套接字上的操作(10055) on Api 'Connect&apo

在一个   C/S   系统中，客户端连接服务器时，如果服务器未启动，客户端会每隔几秒主动   
去连接服务器（ClientSocket.Open），在每一次的ClientSocket.Open之前，都执行一次ClientSocket.close。这样，如果服务器一直未启动，就会发生以上的问题。有人说在OnError里面socket.close;我也这样做了。下面把部分代码贴出来，但是程序在运行8小时候会自己挂掉。procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  try
  mainStatusBar.Panels[0].Text:='与服务器端的连接发生错误...';
  ErrorCode := 0;
  m_isconnected:=false;   //连接状态标志
  socket.Close;
  except
    on E:exception do
    begin
      writelog('异常：TForm1.ClientSocket1Error异常，原因---'+e.Message);
      showmessage('TetcRoadForm.ClientSocket1Error异常'+e.Message);
    end;
  end;
end;procedure TetcRoadForm.showTimeTimerTimer(Sender: TObject);
begin
if not m_isconnected then   //没有连接 ，自动连接。
    begin
      if secondsbetween(now,m_sendtime)>1 then
      begin
      
        try
          inc(m_connecttimes);
          Clientsocket1.close;
          ClientSocket1.Open;
          m_sendtime:=now;
          writelog('连接次数：'+inttostr(m_connecttimes));
        except
          on E:exception do
          begin
            writelog('异常:sockets连接异常，'+e.Message+'连接次数：'+inttostr(m_connecttimes));
          end;
        end;
      end;
    end;
end;