Eso es porque en el total ARS no tenes que sumarle lo que acaba de escribir, asignale el valor del edit
Código Delphi
[-]
TotalARS := StrToCurr(EditARS.Text);
De esa manera asignas siempre el valor ingresado
Estas haciendo algo como esto?
Código Delphi
[-]
TotalARS := TotalARS + StrToCurr(EditARS.Text);
Sin el codigo que estas usando no se que podrias estar haciendo mal