[Drozh]

Нет не то... Ведь можно сделать проще

Код:

if Form1.OpenDialog1.Execute then
begin
 ProgressBar1.Position := 0;
 ProgressBar1.Max := Form1.OpenDialog1.Files.Count - 1;
  for fCounter := 0 to Form1.OpenDialog1.Files.Count - 1 do
   ProgressBar1.Position:=ProgressBar1.Position + 1;
   ...
end;