[[BlueSteel]]

realice el siguiente codigo.. y funciona perfecto...tanto para sumar como para restar

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

gracias a todos por su ayuda...