barra de progreso en carga de form !!!!!

[david_uh]

aha seria buena idea pero sin embargo, para por ejemplo mostrar el progreso de algo como un dataset que tiene una consulta compleja, y deseo mostrar el progreso de la apertura de ese dataset si es el mismo componente el que se encarga de la labor como haria para mostrar ala ususario el estaedo de ese proceso osea ele de la apertura del dataset desde qeu digo

Código Delphi [-]
progreso.position := 0;
query1.open;
progreso.position := 1000;

pero me parece no muy informativo como haria para ir de 1,2,3,4....100%

gracias