HOLA
Para lo que necesitas es utilizar uno de estos objetos TProgressBar o un TGauge para enseñar el progreso de las operaciones mientras se procesan los datos. Tenes que calcular antes el numero de procesos que vas a realizar. Esto se hace la propiedad Count, por ejemplo ADOTable1.RecordCount. El valor arrojado lo tenes que poner en esta propiedad:
Gauge1.MaxValue:=ADOTable1.RecordCount;
ProgressBar1.Max:=ADOTable1.RecordCount;
Si el bucle de analisis hace dos pasadas, entonces tendras que multiplicar ADOTable1.RecordCount por 2 o por el numero de veces que analises los datos de tu tabla.
Luego dentro del bucle utiliza una variable Integer como contador y asignala dentro del bucle a una de estas propiedades y listo. Tienes una hermosa barra mostrandote el progreso de tus operaciones en tiempo real
Var I: Integer;
begin
I:=0;
'Bucle . . . . .' begin
{ Bloque que analiza tus datos
...........................
...........................
...........................
........................... }
ProgressBar1.Position:= I;
Gauge1.Progress:= I;
I:=I+1;
ADOTable1.Next;
end; // Fin del bucle;
|