Progress Bar

utilize o componente gauge, pois acho ele melhor;

gauge1.maxvalue := // valor maximo de uma tabela o conteudo de pasta

while not query1.eof do
begin
// insira seu procedimento
gauge1.progress := gauge1.progress + 1; // mostra o progresso
query1.next;
end;
gauge1.progress :0;
showmessage(´Processo terminado ´);

daí cara, bele?
seguinte...tem um programa OpenSource aqui no clube, acho que na sessão de Uploads, o nome é ArqDiv. O programa serve para quebrar arquivos em partes, porém faz uso de uma barra de progressão p/ mostrar o andamento do mesmo. Pegue ele e estude como o programa faz essa progressão e veja o que vc consegue aproveitar.

Flow
T+ :wink:

Não sei se é isso que vc quer?


procedure TForm1.Button1Click(Sender: TObject);
var
time1, time2:tdatetime;
n1, n2, total: variant;
begin
time1:= now;
n1:= 0;
n2:= 0;
progressbar1.position:= 0;
while n1 < 5000000 do
begin
n2:=n2 + n1;
inc (n1);
if (n1 mod 50000) = 0 then
begin
progressbar1.position:= n1 div 50000;
application.ProcessMessages;
end;
end;
// devemos usar o resultado
total:=n2;
time2:=now;
label1.caption:= formatdatetime(´n:ss´, time1-time2) + ´ segundos´;
end;