Hola,
¿A esta linea?
Código Delphi
[-]productosquery1.FieldValues['existencia']:=productosquery1.FieldValues['existencia']+a;
¿no le falta esto?
Código Delphi
[-]productosquery1.FieldValues['existencia'].value:=productosquery1.FieldValues['existencia'].value+a;