Hola..
Yo utilizo algo así
var cant,i:=integer
begin
cant:=(cantidad de querys o cosas);
ProgressBar1.Min:=0;
ProgressBar1.Max:=can;
ProgressBar1.position:=0;
for i:=0 to can do
begin
ProgressBar1.position:=i;
.....
.....(contenido)
.....
end;
Saludos
|