anchor.diff:              roundsToDo := 10000;
             end;
             baseRealTC := TPlatform.GetTickCount;
  -          If (nonce<FMinNOnce) Or (nonce>FMaxNOnce) then nonce:=FMinNOnce;
  +          If (FResetNOnce) then begin
  +            FResetNOnce := False;
  +            If (nonce<FMinNOnce) Or (nonce>FMaxNOnce) then begin
  +              nonce:=FMinNOnce;
  +            end;
  +          end;
             // Timestamp
             ts := UnivDateTimeToUnix(DateTime2UnivDateTime(now));
             if ts<=FCurrentMinerValuesForWork.timestamp then ts := FCurrentMinerValuesForWork.timestamp+1;
  
positive.code:   FLock := TCriticalSection.Create;
    FDigestStreamMsg := TMemoryStream.Create;
    FMinNOnce := 0; FMaxNOnce:=$FFFFFFFF;
    inherited Create(false);
  end;
  
  
negative.code:         cpu.FDigestStreamMsg.size := 0;
          cpu.FChangeTimestampAndNOnceBytePos:=npos;
          cpu.FMinNOnce:=nextmin;
          cpu.FResetNOnce:=True;
          if (FCPUs>0) then cpu.FMaxNOnce:=nextmin + (Cardinal($FFFFFFFF) DIV FCPUs) - 1
          else cpu.FMaxNOnce:= nextmin + (Cardinal($FFFFFFFF)) - 1;
          nextmin := cpu.FMaxNOnce+1;
  