ProgressBar problem

[a.atalla]

 i have a text file each line in it contains a path to a file and i make  code to copy files from those paths to another place and a progress-bar to indicate the copying process but the progress bar doesn't move  any help ?

Code: [Select]

     sl:=TStringList.Create; sl.LoadFromFile('/tmp/rpms.txt');
     Progressbar1.Max := sl.Count;    //set the pbar max equal no of lines in the rpm.txt
     sl.Free;
     AssignFile(rpmsFile,'/tmp/rpms.txt');
     Reset(rpmsFile);
     while not  EOF(rpmsFile) do
           begin
           ReadLn(rpmsFile,rpm);
           rpm1 := ExtractFileName(rpm);
           CopyFile(rpm,'/tmp/yumoncd/packages/'+rpm1);
           Progressbar1.Position:= Progressbar1.Position + 1;
           end;                 


[theo]

...
Progressbar1.Position:= Progressbar1.Position + 1;
Application.Processmessages;
...

[a.atalla]

great it works   
what did this line do ????

[theo]

what did this line do ????

http://www.delphi3000.com/articles/article_585.asp

[a.atalla]

thanks alot