anchor.diff:  
   end;
   
  -procedure TDiocpTcpClient.DoAutoReconnect(pvASyncWorker:TASyncWorker);
  +procedure TDiocpTcpClient.DoAutoReconnect(pvFileWritter: TSingleFileWriter;
  +    pvASyncWorker:TASyncWorker);
   var
     i: Integer;
     lvContext:TIocpRemoteContext;
  
positive.code:       for i := 0 to FList.Count - 1 do
        begin
          if pvASyncWorker.Terminated then Break;
  
  
          lvContext := TIocpRemoteContext(FList[i]);
          lvContext.DoBeforeReconnect(vAllow);
          if vAllow then
          begin
            lvContext.CheckDoReConnect;
          end;
        end;
      finally
  
negative.code: begin
    if tick_diff(FAutoConnectTick, GetTickCount) > 5000 then
    begin
      FAutoConnectTick := GetTickCount;
      if not self.DisableAutoConnect then
      begin
        DoAutoReconnect(pvFileWritter, pvASyncWorker);
      end;
      DoASyncCycle(pvASyncWorker);
    end;
  end;
  
  