Delphi - Como medir el tiempo que tarda en abrir una tabla

como podria conectar una BarProgress, para que muestre el tiempo que queda para terminar la operacion.

La barra de progreso es útil cuando se sabe de antemano alguna medida de lo que insumirá una operación, y ésta sea "atomizable". En el caso de abrir una tabla, se trata de una sola operación indivisible. Para esos casos se pone el reloj de arena y muchos programas (como el defragmentador de disco) muestran un AVI silencioso continuamente como para "entretener" al usuario. Puedes usar una imagen e irle cambiando su contenido...

Y hablando de eso, alguien sabe donde hay AVIs sileciosos para descargar?