[[duilioisola]]

Creo que preguntas como hacer lo que ejemplificas dentro de un Stored Procedure en Firebird.

Código SQL [-]
for select campo1, campo2, ... from alumnos
    where alumno = 'jxj'
    into :var1, :var2
begin
    /* hago algo */
end

Si fuera en Delphi, en casos como el que presentas y no averiguo cuantos hay. Recorro hasta llegar al final con un WHILE

Código Delphi [-]
while not Query1.EOF do
begin
   // Hago algo
   Next;
end;