Progressbar und Timer

[SaFu]

Guten Morgen

Habe mal ein kleines Problem mit der Progressbar und ein Timer

Ich lasse in einer FileListrBox dateien mit einem Timer nacheinander in ein RichEdit laden, den durchlauf der Dateien kann man mit zwei Button verkürzen oder verlängern und zwar so

Delphi-Quellcode:

// Zeit verkürzen
procedure TForm5.Button9Click(Sender: TObject);
begin
  n:= n - 1000;

  if Timer3.Interval > 0 then
    begin
      Timer3.Interval:= n;  //Wert "n" übergeben
       Label3.Caption:= Format('%.0f Sekunden', [Timer3.Interval / 1000]);

       Label3.Update; // Label aktualisieren
    end;

jetzt würde ich gerne mit der Progressbar anzeigen lassen wie lange es dauert bis die nächste datei geladen wird.

Wie Mache ich das