Probleme mit StringList und for schleifen

[agm65]

also erstelle ich für diese procedure einen neue stringliste ?

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 := sl.count; 
     sl.clear; 
     end; 
end;

macht leider auch fehler !