Probleme mit StringList und for schleifen

[agm65]

Code:

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

das macht auch fehler, exception zugriffs verletzung