ProgressBar com Select? Alguem já consegui?

Olá pessoal, tou com essa bronca:

kero mostrar numa progressbar o tempo de abertura de uma query, e naum contar os registros depois q ela é aberta e prencher a barra.

Tentei usar o codigo dos dica 800 dicas de delphi q fala sobre chamar uma funçao de CallBack do BDE, mais naum consegui. Fiz tudo como diz a dica e naum consegui. Alguem já tentou e consegui? alguem pode me ajudar?

ps: Utilizo bde com access 97, e delphi 7.