Delphi-PRAXiS - Delphi ProgressBar wird nicht angezeigt

Hi, ich habe ein kleines Problem und zwar:

Ich gebe einen Pfad an eine Procedure, dort werden alle MP3-Datei von dem Ordner und Unterordner in eine Datenbank geschrieben.
Ich habe 2 globale Variablen i und count.
Count: Anzahl der MP3s
i: Wieviele Dateien schon in die Datenbank geschrieben wurden.

Die beiden Variablen werden an die 2. Unit übergeben. Die 2. Form soll mir den Fortschritt anzeigen, doch das Funktioniert nicht wirklich. Wenn ich z.b. 800 Dateien in die DB einfüge, dann wird zwar Form2 angezeigt, aber das friert direkt ein und wenn alle Dateien geladen wurden, läuft der Fortschrittsbalken voll (< 1s) und die Form schließt sich.

Hat einer 'ne Idee woran das liegen könnte oder ob es eine eine bessere Lösung gibt?

THX voraus

Der Code von dem Timer:

Delphi-Quellcode:

			procedure TForm2.Timer1Timer(Sender: TObject);

begin

  ProgressBar1.Position := i;

  if count = i then

    close;

end;