[ecfisa]

Hola sisne.

Una idea simple, recorrer la tabla y evaluar lo que deses.
Código a modo de ejemplo:

  Total:= 0; Aprobados:= 0; Reprobados:= 0; SinNota:= 0;
  while not Tabla.Eof do
  begin
     case Tabla.Calificacion of
        '1','2' : Inc(Aprobados);
            '3' : Inc(Reprobados);
            '4' : Inc(SinNota);
     end;
     Inc(Total);   // Perdón sisne, me olvidé esta línea !!!
     Tabla.Next;
  end;

Y tendrás los valores buscados en las variables: Total, Aprobados, Reprobados y SinNota.

Saludos.