anchor.diff:    Result := FFreezedAccounts.FTotalFee;
   end;
   
  -function TPCSafeBoxTransaction.Origin_FindAccountByName(const account_name: AnsiString): Integer;
  +function TPCSafeBoxTransaction.Origin_FindAccountByName(const account_name: TRawBytes): Integer;
   begin
     Result := FFreezedAccounts.FindAccountByName(account_name);
   end;
  
positive.code:   PSafeboxSnapshot = ^TSafeboxSnapshot;
  
  Const
    CT_TSafeboxSnapshot_NUL : TSafeboxSnapshot = (nBlockNumber : 0; oldBlocks : Nil; newBlocks : Nil; namesDeleted : Nil; namesAdded : Nil;oldBufferBlocksHash:Nil;oldTotalBalance:0;oldTotalFee:0;oldSafeBoxHash:'';oldWorkSum:0;oldCurrentProtocol:0);
  
  function TPCSafeBox.Account(account_number: Cardinal): TAccount;
  var
  
negative.code: 
  class function TAccountComp.LoadAccountFromStream(Stream: TStream; var Account: TAccount): Boolean;
  var w : Word;
    raw : TRawBytes;
  begin
    Account := CT_Account_NUL;
    Result := False;
  