Ver progreso de consulta

[Alexandro]

Hola a todos:
Tengo una duda y es algo que me servirá para mi aplicacion de BD.
Uso delphi7, Tabla Paradox 7 y en el formulario tengo un Query con una consulta la cual me manda a extraer de la tabla una serie de registros.
En la tabla hay muchos registros y entonces cuando mando a ejecutar el Query, la maquina se queda suspendida hasta que termina.
Mi pregunta es. Como puedo poner un ProgresBar que se valla llenando según el Query valla dando resultados.
Espero que me ayuden.
Gracias y suerte.