Sumar campo cuando este asi actualizado

[rufo]

Gracias amigo de nuevo por responder, te pongo mi codigo que tengo

Código Delphi [-]
procedure TENTRADAS.sButton4Click(Sender: TObject);
begin
 if messagedlg('Los datos son correctos?',mtconfirmation,[mbok,mbcancel],0)=mrok then
   begin
      with dm1.T_productos do
      begin
         active:=true;
         SetKey;
         FieldByName('id_productos').Asinteger := strtoint(slabel9.Caption);
         GotoNearest;
         edit;
         fieldbyname('id_productos').asinteger:=strtoint(slabel9.Caption);
         fieldbyname('fecha_entrada').asstring:=sedit2.Text;
         fieldbyname('piezas).asstring:=sedit1.Text;
         fieldbyname('id_proveedor').asinteger:=v_idproveedor;
         post;
         refresh;
      end;
      begin
       update;
       dm1.T_productos;
       set dm1.T_productos.FieldByName('piezas')= dm1.T_productos.FieldByName('piezas') + dm1.T_productos.FieldByName('new.piezas');
      end;
   end;

Te pongo todo este codigo por que es en el boton que actualiza mi informacion, ahora asi como me lo pusiste anteriormente me marcaba error de codigo entonces lo puse asi como te lo muestro pero me marcar igual el error ya que mi tabla la tengo en Datamodule por esa razon es como yo llamo a la tabla bueno espero que me ayudes o me comentes en donde esta mi error y gracias de nuevo.