Sumar montos a medida que se ingresa

[[Caral]]

Bueno Analia29, creo que ya me aclaro, perdon la ingnorancia.
Creo que ya se lo que quieres, prueba esto:
En un query temporal pones esto:

Código Delphi [-]
      QTemp.SQL.Text := 'SELECT DISTINCTROW Sum([TuTabla.TuCampo]) AS [Suma] From TuTabla';
      QTemp.Open;
      Edit1.Text  := IntToStr(QTemp.Fields[0].AsInteger);

Por supuesto su tabla y tu campo lo entiendes? o te aclaras.
Espero te sirva y me aclare .
Saludos