anchor.diff:    FLock := TCriticalSection.Create;
     FDigestStreamMsg := TMemoryStream.Create;
     FMinNOnce := 0; FMaxNOnce:=$FFFFFFFF;
  +  FResetNOnce:=True;
     inherited Create(false);
   end;
   
  
positive.code:         cpu.FDigestStreamMsg.size := 0;
          cpu.FChangeTimestampAndNOnceBytePos:=npos;
          cpu.FMinNOnce:=nextmin;
          if (FCPUs>0) then cpu.FMaxNOnce:=nextmin + (Cardinal($FFFFFFFF) DIV FCPUs) - 1
          else cpu.FMaxNOnce:= nextmin + (Cardinal($FFFFFFFF)) - 1;
          nextmin := cpu.FMaxNOnce+1;
  
negative.code:             roundsToDo := 10000;
            end;
            baseRealTC := TPlatform.GetTickCount;
            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;
  