Zeilenweises Lesen einer TXT-Datei?

[Nikolas]

Delphi-Quellcode:

while not EOF(F) do
      begin
        ReadLn(F, s1);
       (1) s := s + s1; // Lass die Zeile mal weg
        CheckListBox1.Items.Add(s); // und schreib hier (sl), dann sollte es laufen. 
      end;

in (1) hängst du die neue Zeile an die letzten dran und gibt's nachher alle Zeilen. Das müsste eigentlich so aussehen:
// Testdatei:
a
b
c

// Deine Ausgabe:
a
a
b
a
b
c
.

Wie sind denn s und sl deklariert und initialisiert? Vielleicht läuft da was schief.