UPDATE Syntax Error

[[Caral]]

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
  //Restar cantidad en el stock
  DataSourceBD.Enabled:= False;
  ZQueryBD.Sql.Clear;
  ZQueryBD.Close;
  ZQueryBD.SQL.Add('SELECT Articulo, Cantidad From FacturaTemp ');
  ZQueryBD.Open;
  ZQueryBD.First;//Te posicionas en el primer registro
  While Not(ZQueryBD.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
    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;//Pasas al siguiente registro
    end;
...Continua

Saludos