Progressbar um Loadfromfile fortschritt anzuzeigen.

[sx2008]

Du bräuchtest einen Stream Decorator.
Hier die schrittweise Erklärung.
Im Moment rufst du ja folgende Methode auf:
stringliste.LoadFromFile(dateiname); Im nächsten Schritt erzeugst du Dir einen eigenen FileStream:

Delphi-Quellcode:

var
  fs : TFileStream;
begin
  fs := TFileStream.Create(dateiname, ...);
  stringliste.LoadFromStream(fs);
  fs.Free;

Damit ist aber noch nichts gewonnen.
Ein Stream Decorator ist ein Klasse, die von TStream abgeleitet ist und die Aufrufe and Read() und Write() einfach nur an einen anderen Stream durchreicht.
Und hier kann man eingreifen und jeden einzelnen Read() mitbekommen:

Delphi-Quellcode:

var
  fs : TFileStream;
  decorator : TStreamDecorator;
begin
  fs := TFileStream.Create(dateiname, ...);
  decorator := TStreamDecorator.Create(fs);
  Progressbar1.Max := fs.size;
  decorator.OnRead := OnReadHandler;
  stringliste.LoadFromStream(decorator);
  decorator.Free;
  fs.Free;

Jetzt fehlt natürlich noch die Klasse TStreamDecorator.
Irgendwo in den Tiefen der DP liegt der Code zu so einer Klasse (find' ich nur im Moment nicht).
In der JCL gibt es auch schon fertige Stream Decorator Klassen, die du verwenden könntest. (Unit JclStream, Klasse TJclEventStream)
Oder einer der Mitleser schüttelt die Klasse aus dem Ärmel...