客户端Socket连接，老是要重启一下网卡，客户端Socket连接才能正常呢

服务器有三块网卡的，134网段、10网段、外网，为什么老是要重启一下网卡，客户端Socket连接才能正常呢？请大侠帮助解答一下。服务器上要主动建立多个客户端固定的连接到134网段的每个终端，每个客户端连接使用一个线程，在线程里这大致这样实现连接采集数据的：
1、skt := Socket(AF_INET, SOCK_STREAM, IPPROTO_IP)
2、 Connect(skt, addr, sizeof(addr))
3、循环采集数据 recv、send
4、CloseSocket(skt);
5、在主程序启动和退出时分别调用了WSAStartup(MAKEWORD(2, 2), MyWSA)、 WSACleanup()目前问题是：
    每次程序启动，刚开始能连接134网段上的终端收发数据，然后不到一分钟就这个连接就不能收发数据，线程中重新连接机制，但重新连接不上，这时连接的错误代码是10060。
    这个时候我在系统中用另外的测试工具也连接不上那个终端，如果我让这个客户端线程退出，测试工具又能连接上那个终端。
   如果当程序重新连接不上终端时，我禁用、再启用一下134网卡，这时连接就恢复正常了，能正常收发数据。采集线程代码如下：
procedure TClientSocketPortThread.SocketCollect; //Socket采集
var
  skt: TSOCKET; //创建Socket对象
  addr: TSockAddr; //地址信息
  tmpStr: string;
  tModul: TContrlModule;
  SocketAddr: string;
  SocketPort: Integer;
  SocketErroFlag: Byte;
  i, CollectResult: Integer;
  CollectFailCount, OpenSocketErrorCount: Integer; //采集次数, 失败次数
begin
  SocketAddr := '';
  SocketPort := 0;
  if Pos(',', FCommPara) > 1 then
  begin
    try
      SocketAddr := Copy(FCommPara, 1, Pos(',', FCommPara) - 1);
      SocketPort := StrToInt(Copy(FCommPara, Pos(',', FCommPara) + 1, Length(FCommPara) - Pos(',', FCommPara)));
    except on E: Exception do
      begin
        tmpStr := FName + '：' + '分解CommPara出错!' + E.Message;
        OutMess(tmpStr, 'COM');
        WriteSystemLog(tmpStr);
      end;
    end;
  end;
  while (not FCloseFlag) and (not Terminated) do
  begin
    try
      ZeroMemory(@addr, sizeof(addr));
      Addr.sin_family := AF_INET;
      Addr.sin_addr.S_addr := inet_addr(PChar(SocketAddr));
      Addr.sin_port := Htons(SocketPort);
      //建立Socket句柄
      UpdateListInfo(3, '准备建立Socket');
      skt := Socket(AF_INET, SOCK_STREAM, IPPROTO_IP); //IPPROTO_TCP);
      if (skt = INVALID_SOCKET) then
      begin
        mySleep(5000);
        Continue;
      end;
      try
        OpenSocketErrorCount := 0;
        while (not FCloseFlag) and (not Terminated) do
        begin
          // 建立连接
          SocketErroFlag := Connect(skt, addr, sizeof(addr));
          if (SocketErroFlag <> 0) then
          begin
            for i := 0 to FModulList.Count - 1 do //置此串口采集所有模块采集故障
            begin
              tModul := FModulList[i];
              tModul.SeriesCollectFailCount := tModul.SeriesCollectFailCount + 1;
              if tModul.SeriesCollectFailCount >= tModul.MaxCollectFailCount then
              begin
                tModul.SetCollectErro;
                RefreshModulImage(tModul);  //刷新图标状态
              end;
            end; 
            Inc(OpenSocketErrorCount);
            tmpStr := FName + '：连续' + IntToStr(OpenSocketErrorCount) + '次打开Socket连接失败!  地址:' + SocketAddr + '  端口:' + IntToStr(SocketPort) + ' 错误代码：' + IntToStr(WSAGetLastError);
            UpdateListInfo(3, '连续' + IntToStr(OpenSocketErrorCount) + '次打开Socket连接失败, 错误代码：' + IntToStr(WSAGetLastError)); //FListItem.SubItems[1] := '打开Socket连接失败';
            OutMess(tmpStr, 'COM');
            if not FilterSocketConnectErrorLog then
              WriteSystemLog(tmpStr);
            mySleep(2000);
            if OpenSocketErrorCount >= 5 then    //连续5次打开错误
            begin
              UpdateListInfo(3, tmpStr);
              raise Exception.Create(tmpStr);
            end;
            Continue;
          end;
          tmpStr := FName + '：打开Socket连接成功!  地址:' + SocketAddr + '  端口:' + IntToStr(SocketPort);
          UpdateListInfo(3, '打开Socket连接成功'); //FListItem.SubItems[1] := '打开Socket连接成功';
          OutMess(tmpStr, 'COM');
          WriteSystemLog(tmpStr);
          mySleep(1000);
          //开始轮询采集
          CollectFailCount := 0;
          while (not FCloseFlag) and (not Terminated) do
          begin
            for i := 0 to FModulList.Count - 1 do
            begin
              tModul := FModulList[i];
              tModul.Handle := skt;
              UpdateListInfo(3, '空闲');
              RefreshModulImage(tModul);
              if (tModul.Enabeled) and (tModul.CommNo = FCommID) then
              begin
                tModul.ExeCmd; //先执行命令
                if tModul.CollectTime > Now then //防止系统日期改变后不会采集
                  tModul.CollectTime := Now;
                if Abs((Now - tModul.CollectTime) * 24 * 60 * 60) >= tModul.ColltIntval then //达到采集间隔执行采集
                begin
                  UpdateListInfo(2, tModul.Name);
                  UpdateListInfo(3, '开始采集');
                  OutMess('采集模块索引号:' + IntToStr(tModul.IndexNo) + '开始采集', tModul.IndexNo);
                  StartCollect(tModul, CollectResult);
                  if CollectResult <> 0 then
                  begin
                    Inc(CollectFailCount);
                    UpdateListInfo(3, '采集失败');
                    OutMess('采集模块索引号:' + IntToStr(tModul.IndexNo) + '采集失败', tModul.IndexNo);
                    OutMess('采集模块索引号:' + IntToStr(tModul.IndexNo) + '开始Socket重连', tModul.IndexNo);
                    shutdown(skt, SD_BOTH);
                    Sleep(100);
                    raise Exception.Create('采集模块索引号:' + IntToStr(tModul.IndexNo) + '采集失败');
                  end
                  else
                  begin
                    UpdateListInfo(3, '采集完成');
                    OutMess('采集模块索引号:' + IntToStr(tModul.IndexNo) + '采集完成', tModul.IndexNo);
                  end;
                  mySleep(FQueryInterval);
                end;
                tModul.ActiveEvent;
              end;
              Sleep(10);
            end;
            if CollectFailCount >= 5 then //采集失败
            begin
              tmpStr := FName + ':采集失败,第' + IntToStr(CollectFailCount) + '次重新打开串口!';
              OutMess(tmpStr, 'COM');
              WriteSystemLog(tmpStr);
              Break;
            end;
            Sleep(10);
          end;
        end;
      finally
        CloseSocket(skt);
      end;
    except on E: Exception do
        WriteSystemLog(E.Message);
    end;
  end;
end;