ProgressBar bei LoadFromFile in TListBox

[bodenheim]

Hallo,
ich lade aus einer Textdatei Daten in eine TListBox.
Also nach Auswahl der Datei in einem Open Dialog

ListBox1.Items.LoadFromFile(FileName);

Funktioniert auch, aber da die txt über 1 MB groß ist, hängt er herum, bis alle Zeilen geladen sind.
Deshalb möchte ich den Ladevorgang in einer ProgressBar darstellen.

Wie machen?? Komme nicht dahinter..
Danke !


PS also Irgendwie mit Count, wenn eine neue Zeile drin ist..komme gerade nicht ganz dahinter