anchor.diff:      For i:=0 to FListOfOrderedAccountKeysList.count-1 do begin
         TOrderedAccountKeysList( FListOfOrderedAccountKeysList[i] ).ClearAccounts(False);
       end;
  -    FBufferBlocksHash := '';
  +    FBufferBlocksHash.Clear;
       FTotalBalance := 0;
       FTotalFee := 0;
       FSafeBoxHash := CalcSafeBoxHash;
  
positive.code:         //
          FPreviousSafeBox.FSubChains.Add(Self);
          //
          FBufferBlocksHash := Psnapshot^.oldBufferBlocksHash;
          FTotalBalance := Psnapshot^.oldTotalBalance;
          FTotalFee := Psnapshot^.oldTotalFee;
          FSafeBoxHash := Psnapshot^.oldSafeBoxHash;
  
negative.code:   StartThreadSafe;
    try
      // If No buffer to hash is because it's firts block... so use Genesis: CT_Genesis_Magic_String_For_Old_Block_Hash
      if (FBufferBlocksHash.Length=0) then Result := TCrypto.DoSha256(CT_Genesis_Magic_String_For_Old_Block_Hash)
      else Result := TCrypto.DoSha256(FBufferBlocksHash.Memory,FBufferBlocksHash.Length);
    finally
      EndThreadSave;
    end;
  