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.