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