anchor.diff:        FOperationBlock.operations_hash := FOperationsHashTree.HashTree;
       End;
     Finally
  -    CalcProofOfWork(true,FOperationBlock.proof_of_work);
  +    Calc_Digest_Parts; // Does not need to recalc PoW
       Unlock;
     End;
     if (n>0) then begin
  
positive.code:     FIsOnlyOperationBlock := false;
    Finally
      try
        CalcProofOfWork(true,FOperationBlock.proof_of_work);
      finally
        Unlock;
      end;
  
negative.code:     end;
      FPreviousUpdatedBlocks.CopyFrom(Operations.FPreviousUpdatedBlocks);
      // Recalc all
      Calc_Digest_Parts; // Does not need to recalc PoW
    finally
      Unlock;
    end;
  