Actualizar todos los registros de una tabla

[GrupoDatasoft]

Hola, tengo una tabla llamada ArchCaja con unos registros que tienen un valor x en en el campo "Valor" y quiero que al dar click en un boton, a este valor de este campo se le reste 100, no soy experto, aqui tengo lo que creí que podría funcionar pero no fué así:

ArchCaja.Open;
ArchCaja.IndexName := 'PorFecha';
ArchCaja.CancelRange; ArchCaja.SetRange([desdeFr.date],[hastaFr.date]);
ArchCaja.Edit;
ArchCaja.FieldByName('Valor').AsInteger := ArchCaja.FieldByName('Valor').AsInteger - 100;
ArchCaja.Post;

Al ejecutar este código, solo me cambia el valor del primer registro, pero lo que necesito es cambiar ese valor en todos los registros del rango solicitado de fecha.

Gracias a todos los que me puedan dar una idea.