Código Delphi [-]
select * from tabla where alumno = 'jxj'
//y con un 
for i := o to query1.recordcount - 1 do 
begin
// aqui hago algo
end;


// o solo con el recordCount  obtengo la cantidad de registros

Código SQL [-]
SELECT COUNT (*) AS num_registros FROM tabla WHERE blablabla;

Código SQL [-]
SELECT COUNT (campo_clave_primaria) FROM TABLA WHERE 'blablabla'

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

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

Código SQL [-]
/* Ejemplo para sacar un promedio de notas de un alumno */
create procedure promedio (
    alumno varchar(10))
returns (
    promedio double precision)
as
declare variable cantidad integer;
declare variable total_nota double precision;
begin
    /* Averiguo cuantas notas hay */
    select count(*)
    from notas_alumnos
    where
    alumno = :alumno
    into :cantidad;

    /* Sumo las notas */
    totalnota = 0;
    for select nota
        from notas_alumnos
        where
        alumno = 'jxj'
        into :nota
    do
    begin
        totalnota = totalnota + nota;
    end

    /* Calculo el promedio */
    promedio = totalnota / cantidad;

    suspend;
end

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

Código Delphi [-]
Query1.Last
Query1.RecordCount

Código SQL [-]
SELECT COUNT(*) FROM PACIENTES

Código SQL [-]
SELECT COUNT(1) FROM PACIENTES

Código SQL [-]
Select 1 as numero_Constante, id, nombre, 'Casi' as NombreConstante from MiTabla where fecha between :f1 and :f2

Código SQL [-]
create procedure SpAlgo (alumno varchar(10)) returns (cantidad integer, RegistroActual integer,id Integer, Nombre varchar(100)) as 
begin     
   select count(1) from notas_alumnos where alumno = :alumno into :cantidad;
   RegistroActual = 0;
   for select nombre, id from notas_alumnos where alumno = :alumno   into :nombre, :id  do
   begin
      registroActual = registroActual + 1;
      suspend;
   end  
end