Suma de campos de un dbgrid

[ecfisa]

Primero gracias por las etiquetas Casimiro ...

pero donde coloco el codigo de la suma:

lisc_dla, como te dije en el mensaje #10 podés ubicarlo inmediatamente despues de la declaracion implementation de la unidad que lo uses. Es claro que tu consulta debe haber sido realizada antes.

y donde colo este otro codigo

Bueno eso depende de como y cuando quieras mostrarlo. Yo te pongo un ejemplo tán válido como cualquier otro:

Código Delphi [-]
...
implementation

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;
...
(* Este es el ejemplo de llamada *)
procedure TForm.Button1Click(Sender: TObject);
begin
  if Adotable1.Locate('fecha',lbl_fecha.Caption,[]) = false then
  begin
    AdoTable1.Filtered := False;
    AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    AdoTable1.Filter := Filtro;
    AdoTable1.Filtered := True;
    AdoTable1.Open;
  end
  else
  begin
    AdoTable1.Filtered := False;
    AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    AdoTable1.Filter := Filtro;
    AdoTable1.Filtered := True;
    AdoTable1.Open;
  end;
  Edit.Text:= FloatToStr(SumarTotales(DBGrid1,'Total'));
end;

Para el ejemplo supongo que el nombre del campo donde están los valores a sumar se llama Total.

Saludos.