Dateien auslesen

[delphi_noob666]

Hallo,

hab probleme beim auslesen einer datei.
folgender code:

Delphi-Quellcode:

  While not EOF(f1) do begin
      Readln(f1,s);
      k := Length(s);
      Match_ID.Text := IntToStr(j);
      Matchdate.Text := Copy(s,1,8);
      i := Pos(' ', s);
      q := Pos(':', s);
      Home_Team.Text := Copy(s,i+1,(q-1)-i);
      i := Pos(':', s);
      Out_Team.Text := Copy(s,i+2,(k-3)-(i+2));
      Home_Goals.Text := Copy(s,k-3,1);
      Out_Goals.Text := Copy(s,k-1,1);
      DBNavigator1.BtnClick(nbInsert);
      j := j+1;
  end;

Problem: Die erste Zeile wird übersprungen.
Hinweis: Die Daten sollen an eine Datenbank übergeben werden...
hier noch ein kleiner auszug aus der datei

10.08.07 VfB Stuttgart : FC Schalke 04 2:2
11.08.07 FC Bayern München : F.C. Hansa Rostock 3:0
11.08.07 VfL Bochum 1848 : Werder Bremen 2:2

eintrag in die edit-felder 1.datensatz: 11.08.07 FC Bayern München : F.C. Hansa Rostock 3:0

Vielen Dank im voraus