Delphi-Quellcode:
for i := 0 to sl.count -1 do
begin
sl.LoadFromFile(sl.Strings[i]));
edit1.text := sl.count;
sl.clear;
end;
Hier fällt mir außerdem auf, dass am Ende jedes Schleifendurchlauf die StringListe geleert wird, wodurch beim nächsten Aufurf nicht mehr von sl.Strings[i] gelesen werden kann. Logischerweise
Nachtrag: Warum speicherst du nicht Sl.Count - 1 in einer Variableß
//edit: Edit1.Text := sl.Count funktioniert auch nicht, da du ja einen Integerwert in einen String schreiben willst. Wenn du das machen willst, musst du zuvor mit
IntToStr Sl.Count umwandeln (wenn du wirklich die Zahl reinschreiben willst).