Probleme mit StringList und for schleifen

[100nF]

probiers mal so:

Delphi-Quellcode:

tform.button1click; 
var 
i:integer; 
sl3: tstringlist;
begin 
sl3 := tstringlist.create;
sl3.strings := sl.strings;
try 
  for i :=  0  to sl3.count -1 do 
     begin 
     sl.clear;
     sl.LoadFromFile(sl3.Strings[i])); 
     edit1.text := inttostr(sl.count); 
     end; 
end;