Hola lisc_dla.
Creo que es más eficiénte hacerlo con una consulta SQL, pero si te decidis por hacerlo desde el DBGrid podrías hacer algo así :
Código Delphi
[-]
function SumarTotales(Grid: TDBGrid; const AFieldName: string): Currency;
var
BM: TBookMarkStr;
begin
Result:= 0;
with Grid.DataSource.DataSet do
begin
BM:= Bookmark;
DisableControls;
while not Eof do
begin
Result:= Result + FieldByName(AFieldName).AsCurrency;
Next;
end;
BookMark:= BM;
EnableControls;
end;
end;
Ejemplo de llamada:
Código Delphi
[-]
Edit.Text:= FloatToStr(SumarTotales(DBGrid1,'Total'));
Saludos.