anchor.diff:    FLock := TCriticalSection.Create;
     FDigestStreamMsg := TMemoryStream.Create;
     FMinNOnce := 0; FMaxNOnce:=$FFFFFFFF;
  +  FResetNOnce:=True;
     inherited Create(false);
   end;
   
  
positive.code:     FChangeTimestampAndNOnceBytePos : Integer;
      FDigestStreamMsg : TMemoryStream;
      FMinNOnce,FMaxNOnce : Cardinal;
      procedure BCExecute; override;
    public
      Constructor Create(CPUDeviceThread : TCPUDeviceThread);
  
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;
  