anchor.diff:                Exit;
               end;
             end;
  -          inc(FTotalBalance,block.accounts[iacc].balance);
  +          inc(FTotalBalance,Int64(block.accounts[iacc].balance));
           end;
           errors := 'Corrupted stream reading block '+inttostr(iblock+1)+'/'+inttostr(sbHeader.blockscount);
           If TStreamOp.ReadAnsiString(Stream,block.block_hash)<0 then exit;
  
positive.code:   PaccAccountToBuy^.accountInfo.state := as_Normal;
    PaccAccountToBuy^.accountInfo.accountKey := new_account_key;
  
    Dec(FTotalBalance,fee);
    inc(FTotalFee,fee);
    Result := true;
  end;
  
  
negative.code:     FBlockAccountsList.Add(Pblock);
    end;
    FBufferBlocksHash.Add(Result.block_hash[1],Length(Result.block_hash));
    Inc(FTotalBalance,Int64(blockChain.reward + blockChain.fee));
    Dec(FTotalFee, Int64(blockChain.fee));
    If (length(accs_miner)>0) then begin
      AccountKeyListAddAccounts(blockChain.account_key,accs_miner);
    end;
  