sumar los campos de un stringgrid

[Rofocale]

Código Delphi [-]
  if(chkFecha.Checked) then
     begin
               dmDatos.cdsCliente.Active := false;
                with dmDatos.qryListados do
                begin
                if Active then Close;
                SQL.Clear;
                SQL.Add('SELECT f.caja, f.numero, f.fecha, f.hora, f.estatus, f.total-f.iva AS subtotal,f.iva, f.total,f.cliente, f.clave, sum(f.total) AS gtotal FROM ventas f WHERE f.fecha = :fecha GROUP BY f.caja, f.numero, f.fecha, f.hora, f.estatus,f.iva, f.total,f.cliente, f.clave');
                parambyname('fecha').AsDate := FechaBusq.date;
                open;
                txtTotalventa.text := floattostr(FieldByName('gtotal').AsFloat);
                end;

            with dmDatos.cdsCliente do begin
            Active := true;

            txtRegistros.text := inttostr(dmDatos.cdsCliente.RecordCount);
            FieldByName('caja').DisplayLabel := 'Caja';
            FieldByName('caja').DisplayWidth := 4;
            FieldByName('numero').DisplayLabel := 'Remisión';
            FieldByName('numero').DisplayWidth := 8;
            FieldByName('fecha').DisplayLabel := 'Fecha';
            FieldByName('fecha').DisplayWidth := 9;
            FieldByName('hora').DisplayLabel := 'Hora';
            FieldByName('hora').DisplayWidth := 11;
            FieldByName('estatus').DisplayLabel := 'Estatus';
            FieldByName('estatus').DisplayWidth := 7;
            FieldByName('subtotal').DisplayLabel := 'Subtotal';
            FieldByName('subtotal').DisplayWidth := 10;
    
            FieldByName('iva').DisplayLabel := 'IGV';
            FieldByName('iva').DisplayWidth := 10;
           
            FieldByName('total').DisplayLabel := 'Total';
            FieldByName('total').DisplayWidth := 10;
  
            FieldByName('cliente').Visible := false;
    
            FieldByName('clave').Visible := False;

           end;
    end

hola necesito saber como podria arreglar este codigo en la parte de group by.. ya que no me funciona bien el filtro

al probarlo de esta forma

Código Delphi [-]
SQL.Add('SELECT f sum(f.total) AS gtotal FROM ventas f WHERE f.fecha = :fecha');
                parambyname('fecha').AsDate := FechaBusq.date;
                open;
.....

el filtro funciona bien osea me suma los campos por fecha pero obviamente no me muestra nada mas que el resultado en el edit ya que no tengo mas campos agregados.. pero si les agrego los campos como en el codigo de arriba al select
me pide un group by clause
agrego el group by y los campos

pero a probarlo ya no me suma los campos correctamente y ya no filtra por fecha aparecen todos los registros de todas las fechas y al sumar solo suma el primer campo

alguien me ayuda.. que estoy haciendo mal

gracias