Sorry, no deje el ejemplo completo, seria algo asi:
Código Delphi
[-]procedure TForm1.Guardar(Sender: TObject);
begin
Table1.Edit;
Table1.FieldbyName('TOTAL').AsFloat:= Table1.FieldbyName('TOTAL').AsFloat + StrToFloat (Edit1.Text);
Table1.Post;
end;
Tu Código deveria quedar asi:
Código Delphi
[-]procedure TForm1.Guardar(Sender: TObject);
begin
dm1.T_productos;
dm1.T_productos.FieldbyName('piezas').AsFloat:= dm1.T_productos.FieldbyName('piezas').AsFloat + StrToFloat (sEdit1.Text);
dm1.T_productos.Post;
end;
Prueba y nos cuentas!!!, quizás la respuesta es algo "Caníbal" o "Rebuscado", no pretendo reinventar la rueda, pero soy de los que Código que resulta, Repite y esta forma hasta el día de hoy no me ha dado ningún problema, si alguien tiene alguna mejor forma (obviamente hay alguna mejor y menos rebuscado) que nos ilumine y así aprendemos todos...
Saludos...