Actualizar Stock

[[BlueSteel]]

Hola amigos, tengo un pequeño problema.(pa variar ) necesito actualizar el Stock de la tabla productos, pero nunca he realizado eso....

la siguiente sentencia me actualiza el stock, pero lo que realmente me hace es cambiar el contenido por el nuevo valor, y lo que necesito es que se lo sume o le reste dicho valor (dependiendo del caso)

Código Delphi [-]
For i:=0 to Items_Paso.RowCount-1 Do
Begin
     IBQ_Stock.SQL.Clear;
     IBQ_Stock.SQL.Add('Update "Producto" Set "Pro_Stock"=:Var1');
     IBQ_Stock.SQL.Add('Where "Pro_Codigo"=:Var2');
     IBQ_Stock.Params[0].AsInteger := StrToInt(Items_Paso.Cells[1,i]);
     IBQ_Stock.Params[1].AsString  := Items_Paso.Cells[0,i];
     IBQ_Stock.ExecSQL;
End;

encontre esta sentencia y me funciona bien pero en el Editor de SQL y no se como traspasarla al Delphi

Código Delphi [-]
Update "Producto" Set "Pro_Stock"="Pro_Stock"+25

la idea es que el 25 se reemplace por el contenido de StrToInt(Items_Paso.Cells[1,i]);

tambien probé esto, pero no me funcionó (cambiando la asignación del parametro)

Código Delphi [-]
IBQ_Stock.Params[0].AsInteger := IBQ_Stock['Pro_Stock']+StrToInt(Items_Paso.Cells[1,i]);