Teile von Textdateien in Listbox darstellen & aktualisieren

[buyden]

Also ich hab das mal versucht, aber bei folgendem Code bekomme ich immer ne Access Violation, aber ich kann mir nicht so ganz erklären warum:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var list: tstringlist;
    zeile, nummer: string;
    i:integer;
begin
listbox1.Items.Clear;
list.Create;
list.LoadFromFile(datamodule1.tbsetting.fieldbyname('pfad').asstring);
for i:=0 to list.Count do
  begin
  zeile:=list[i];
  if pos(datamodule1.tbsetting.fieldbyname('techniker').asstring,zeile)<>0 then
     begin
     if pos('OK',zeile)=0 then
        Begin
        system.Delete(zeile,1,pos(',',zeile));
        nummer:=copy(zeile,1,pos(',',zeile)-1);
        listbox1.Items.Add(nummer);
        end;
     end;
  end;
if listbox1.Items.Count=0 then
   timer2.Enabled:=false;
list.Free;
end;

Sieht jemand den Fehler??

Ich hab das Programm zeilenweise aufen lassen und irgendwie muss der Fehler beim LoadFromFile liegen. Die Datei ist aber nicht geöffnet oder sonstwie gesperrt. ICh kann mir das nicht so ganz erklären.