Probleme mit StringList und for schleifen

[100nF]

mit einer dritten stringlist müsste das etwa so aussehen:

Delphi-Quellcode:

s3.strings := s1.strings;
for i :=  0  to s3.count -1 do 
     begin 
     sl.LoadFromFile(s3.Strings[i])); 
     edit1.text := sl.count; 
     sl.clear; 
     end;