Zeilenweises Lesen einer TXT-Datei?

[HaCkAttaCk2001]

Hi.

Ich hab nun ein wenig Code aus der DP und aus der Delphihilfe benutzt, kombiniert und angepasst, aber anstatt mir jede Zeile in einer eigenen Zeile in der CheckBoxList auszugeben, gibt er mir nur die erste Zeile so oft aus, wie das Dokument Zeilen hat

Ich hab folgenden Code für das Einlesen vorliegen:

Delphi-Quellcode:

    AssignFile(F, OpenDialog1.Files[i]);
  {$I-}
    Reset(F);
  {$I+}
    if IOResult = 0 then
    begin
      while not EOF(F) do
      begin
        ReadLn(F, s1);
        s := s + s1;
        CheckListBox1.Items.Add(s);
      end;
      CloseFile(F);
    end;

Irgendwie verstehe ich auch warum nur die erste Zeile kommt... woher soll Delphi wissen welche Zeile er nun auslesen soll? Aber irgendwie weiß ich nicht wie ich das vermitteln soll .


C ya.