вставить progressbar

[zarada]

Здравствуйте. помогите установить прогрессбар при открытии файла?

 //открыть
procedure TForm1.Button1Click(Sender: TObject);
var
  _temper: TStringList;
  Index: Integer;
begin
  if not OpenDialog1.Execute()
    then Exit;
  _temper:= TStringList.Create();
  try
    for Index:= 0 to OpenDialog1.Files.Count - 1 do
      try
        _temper.LoadFromFile(OpenDialog1.Files[Index]);
      except
      end;
  finally
  end;
end;

заранее спасибо.

[johnnyboy]

procedure TForm1.Button1Click(Sender: TObject);
var
_temper: TStringList;
Index: Integer;
begin
if not OpenDialog1.Execute()
then Exit;
_temper:= TStringList.Create();
try
ProgressBar1.MaxValue := OpenDialog1.Files.Count;
ProgressBar1.Position := 0;
for Index:= 0 to OpenDialog1.Files.Count - 1 do
try
_temper.LoadFromFile(OpenDialog1.Files[Index]);
ProgressBar1.Position = Index + 1;
except
end;
finally
end;
end;