[sisne]

Hola!
Les cuento que solucioné ese detalle.
ecfisa, segui tu ayuda y coloqué este código:

    TMateria.First;
    while not TMateria.Eof do
      begin
        Kon:=Kon+1;
        If Facademico.TmateriaCalificacionM.Text='Aprobado' then inc(A);
        If Facademico.TmateriaCalificacionM.Text='Reprobado' then inc(R);
        If Facademico.TmateriaCalificacionM.Text='Ninguno' then inc(N);
        TMateria.Next;
      end;

El bendito Next me faltaba....Gracias ecfisa.
Roman, si fuese el caso de usar sql como seria su implementacion en delphi? usando un query en sql colocaria ese codigo? y para llamar como tendria que hacerlo? por favor pautas..para no hacer un ciclo como dices.
Gracias Roman.