Hola
Nos das solo eses codigo, no sabemos que hay delante de el. especulando:
Código Delphi
[-]
var articulo: String;
cantidad: Real;
begin
ZQuery1.slq.text:= 'Select * from TablaArticulos';
ZQuery1.open;
ZQuery1.First; Articulo:= ZQuery1.Fields[0].AsString;
Cantidad:= ZQuery1.Fields[1].AsString;
ZQuery1.Close;
ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+Cantidad+' Where Articulo = '+Articulo;
ZQuery1.ExecSQL;
end;
Saludos