Progress Bar Enquanto Abre Consulta

Estou trabalhando com Firebird e uma consulta está demorando muito, uns 20 segundos; não sei se é normal, se for, gostaria de criar uma progressbar q fosse sendo preenchida enquanto a consulta ia abrindo pra não dar a impressão de q o sistema está travado!!

´select distinct(cod_orvnd) from pedidos
where not cod_orvnd in (select cod_orvnd from pedidos where entrega is null)
order by cod_orvnd´

alguma sugestão?!

Obrigado