anchor.diff:      FBlockAccountsList.Add(Pblock);
     end;
     FBufferBlocksHash.Add(Result.block_hash[1],Length(Result.block_hash));
  -  Inc(FTotalBalance,blockChain.reward + blockChain.fee);
  -  Dec(FTotalFee, blockChain.fee);
  +  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;
  
positive.code:   end;
    PaccTarget^.balance := PaccTarget^.balance + (amount);
  
    Dec(FTotalBalance,fee);
    inc(FTotalFee,fee);
    Result := true;
  end;
  
  
negative.code:   PaccAccountToBuy^.accountInfo.state := as_Normal;
    PaccAccountToBuy^.accountInfo.accountKey := new_account_key;
  
    Dec(FTotalBalance,Int64(fee));
    inc(FTotalFee,Int64(fee));
    Result := true;
  end;
  
  