Kombination aus DirectoryListBox und FileListobx

[PhilmacFLy]

Gibt es eine Kombination aus ner DirectoryListBox und ner FileListobx ?
Ich weiss das es die Ganzen TShell... sachen gibt aber die funzen nicht mit meinem Source Code

Delphi-Quellcode:

  l: TIdFtpListItems;
  i: integer;
  sl: TStringList;
begin
  sl := TStringList.Create;          
  IdFTP1.Connect;                   
  IdFTP1.ChangeDir('/filesharing/');
  IdFTP1.List(sl, '*', false);     
  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;               
  FileListBox2.Items.Assign(sl);

Oder hat jemand ne Ahung wie ich das kombinieren kann?