[__cadetill]

Perdón, la linea anterior tiene un error, tendría que quedar algo así

Código Delphi [-]
if Sender is TQrDbText then
  suma1 := suma1 + TQrDbText(Sender).DataSet.FieldByName(TQrDbText(Sender).DataField).AsFloat;