Amigos ya quedo resuelto, les explico que estaba mal al momento de actualizar ya que estaba sumando el mismo registro con el mismo, les pongo como ya quedo mi codigo ya correcto.
Código:
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; //Aqui es donde estaba mal ya que estaba sumando asi mismo
fieldbyname('id_proveedor').asinteger:=v_idproveedor;
post;
refresh;
end;
begin
dm1.T_productos.Edit;
dm1.T_productos.FieldbyName('piezas').AsFloat:= dm1.T_productos.FieldbyName('piezas').AsFloat + StrToFloat(sEdit1.Text);
dm1.T_productos.Post;
end;
end;
Gracias de antemano por sus contestacion.