Hola golf2008, una vez que ejecutes tu consulta, de esta forma recorres todos los registros que has obtenido.
Código Delphi
[-]
Query1.First;
While not Query1.Eof do
begin
nombre := Query1.FieldByName('NOMBRE').AsString;
........
Query1.Next;
end;
Saluditos