TidFTP - Dateien auflisten

[Chefx]

Hallo DBs,

Ich hab ein problem, nämlich ich will in einer Listview die Dateien die auf dem server liegen anzeigen lassen (Also dateiname ...).
Ich hab ungefähr 2 Stunden gebraucht bis ich das richtige gefunden hab aber irgendwie funktioniert das nicht so richtig.
Also hier der link zum Post.
so und der code:

Delphi-Quellcode:

procedure ...;
var
  l: TIdFtpListItems;
  i: integer;
  sl: TStringList;
begin
   sl := TStringList.Create;          
  idFTP1.Connect(true, -1);           
  idFTP1.List(sl, '*', true);         
  l := idFTP1.DirectoryListing;        
  for i := l.Count - 1 downto 0 do   
    if l[i].ItemType = ditDirectory  
      then sl[i] := l[i].FileName    
      else sl.Delete(i);            
  idFTP1.Disconnect;                  
   ListBox1.Items.Assign(sl);          
  sl.Free;                          
end;

Das problem ist das der Dateien hochladen kann (eine andere procedure mit der gleichen Tidftp) aber das anzeigen der dateien mit der Procedure geht nicht.
Wo liegt mein Fehler?