Hola sisne.
Una idea simple, recorrer la tabla y evaluar lo que deses.
Código a modo de ejemplo:
Código:
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.