Error recorriendo dbgrid

[Petolansa]

Buenas gente, estoy recorriendo un dbgrid de factura detalle, y quiero descontar el stock mediante un query.

procedure TFrmfactura.BitBtn1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to dbgrid1.FieldCount -1 do
begin
query1.SQL.Text:='Update stock set stkact=stkact-'+dbgrid1.Fields[0,i]+'Where'+
                 'procod='+QuotedStr(dbgrid1.Fields[1,i]);
query1.ExecSQL;
end;
end;

Me da el siguiente errortoo many actual params, me podrian decir a que se debe, desde ya muchas gracias