Consulta simple y con sumas

[MartinS]

Hola Neftali: Gracias por la respuesta. Ahora bien, me surge un inconveniente ya que si agrupo no veo el detalle y si listo no veo los totales Hay alguna forma de conbinar las dos sentencias SQL en una sola??

Código Delphi [-]
  With Filtro do
  Begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From Inasistencias Where IdAgente = :Cod');
    SQL.Add('Order By Fecha');
    ParamByName('Cod').AsInteger := CodigoAgente;
    Open;
  End;
  With Calculo do
  Begin
    Close;
    Sql.Clear;
    Sql.Add('Select IdAgente, Sum(TardeJust) as TJ, Sum(TardeInj) As TI, Sum(Faltajust) As FJ, Sum(FaltaInj) as FI From Inasistencias Where IdAgente = :Cod');
    Sql.Add('Group by IdAgente');
    ParamByName('Cod').AsInteger := CodigoAgente;
    open;
  End;
  StatusBar1.Panels[1].Text := IntToStr(Calculo.FieldByName('FJ').AsInteger);
  StatusBar1.Panels[3].Text := IntToStr(Calculo.FieldByName('FI').AsInteger);
  StatusBar1.Panels[5].Text := IntToStr(Calculo.FieldByName('TJ').AsInteger);
  StatusBar1.Panels[7].Text := IntToStr(Calculo.FieldByName('TI').AsInteger);

Gracias nuevamente...