Hola
Me parece que cantidad en la tabla es de tipo double.
Código Delphi
[-]procedure TForm1.BDespacharClick(Sender: TObject);
Var
Codigo :Integer;
Total, Articulo :String;
Cantidad: Real;
begin
DataSourceBD.Enabled:= False;
ZQueryBD.Sql.Clear;
ZQueryBD.Close;
ZQueryBD.SQL.Add('SELECT Articulo, Cantidad From FacturaTemp ');
ZQueryBD.Open;
ZQueryBD.First; While Not(ZQueryBD.Eof) do begin
Articulo:= ZQueryBD.Fields[0].AsString;
Cantidad:= ZQueryBD.Fields[1].AsFloat;
ZQuery1.Close;
ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+FloatToStr(Cantidad)+' Where Articulo = '+Articulo;
ZQuery1.ExecSQL;
ZQueryBD.Next; end;
...Continua
Saludos