loop no Select

While Not Query.EOF do
begin
//Coloque seu código aqui
Query.Next;
end

Obrigado, mas quero fazer o loop dentro do SELECT( ou seja dentro da SQL)

só com stored procedure. e aí depende do banco de dados utilizado, pois as formas variam.

Qual o seu banco de dados?

Meu banco é o Firebird 1.5

Use um laço FOR SELECT DO (só funciona em SP e triggers)

veja se esse tópico te ajuda:

[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=54618&highlight=loop[/url]

se não ajudar, faça uma pesquisa no fórum Interbase/Firebird.