UPDATE Syntax Error

[martini002]

Saludos amigos donde quiera que se encuentren,

Estoy teniendo un problemita de Syntax con el UPDATE,
lo hice de dos formas distintas pero de ninguna funciona
ahora, lo que me he dado cuenta es que el error lo presenta en ambos
en la Condicion donde usa la variable Articulo
Ustedes que creen que pueda ser?

Saludos
Gracias

No Such column Refresco (Articulo)

Código Delphi [-]
  ZQuery1.First;//Te posicionas en el primer registro
  While Not(ZQuery1.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
    begin
      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;
      ZQuery1.Next;//Pasas al siguiente registro
    end;

Near Where :Syntax Error

Código Delphi [-]
  ZQuery1.First;//Te posicionas en el primer registro
  While Not(ZQuery1.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
    begin
      Articulo:=  ZQuery1.Fields[0].AsString;
      Cantidad:= ZQuery1.Fields[1].AsString;
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - :P1 Where Articulo = :P2';
      ZQuery1.Params[0].Value:= Cantidad;
      ZQuery1.Params[1].Value:= Articulo;
      ZQuery1.ExecSQL;
      ZQuery1.Next;//Pasas al siguiente registro
    end;