Error recorriendo dbgrid

[Petolansa]

Henry, vos sabes que probe, haciendo lo que me dijiste y me da error siempre en en el mismo lugar, en la variable i que uso en el indice de os campos del dbgrid.
Me dice too many actual parameters, gracias igual por la pronta respuesta.


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;


Disculpen hago muchas preguntas en tan poco tiempo, es que es una tesis de la facultad, y realmente el profesor que me dio delphi no ayudo mucho enseñandome para poder realizarla, entonces me la debo rebuscar solo, y aprender todo a fuerza de voluntad mia y si no fuera por el club, realmente esto me costaria muchisimo mas.


Agradezco su ayuda