Var nOld:Integer; Begin nOld:=Resultado del Query1 -1 UPDATE productos SET stock= nOld WHERE codigo=:code