1:

IdFTP1.list(listbox1.items, '', false)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

procedure TForm1.ordnerstruktur;
var
  i,k: Integer;
  exparr : TStringDynArray;
  icon : TIcon;
  fi     : TSHFileInfo;
begin
  ZeroMemory(@fi,sizeof(fi));
  listview1.Clear;

  icon := TIcon.Create;//wird gebraucht, um die Icons in die Imageliste zu laden


  IdFTP1.List(listbox1.items, '', false); //Abfrage der Dateiliste des FTP(Indy-Komponente)


  for i := 0 to listbox1.Count - 1 do //die Schleife überprüft, ob in der Liste Dateien vorkommt und gibt zuerst die Ordner aus)
  begin
    if pos('.', listbox1.Items.Strings[i]) = 0 then
    begin
       listview1.AddItem(Listbox1.Items.Strings[i], listview1); //Ordner wird ausgegeben

       fi.hIcon:= ExtractIcon(hInstance, 'shell32.dll', 3); //das dazugehörige Symbol aus der windows Imagelist(glaub ich zumindest)

       icon.Handle := fi.hIcon; //das ausgelesene Icon wird an das definierte TIcon übergeben

       listview1.Items.Item[listview1.Items.Count-1].ImageIndex:= imagelist1.AddIcon(icon); //Icon wird dem Listview Element hinzugefügt 

    end;
  end;


  for i := 0 to listbox1.Count - 1 do //Hier werden die Dateien Ermittelt
  begin
    if pos('.', listbox1.Items.Strings[i]) > 0 then
    begin
      listview1.AddItem(Listbox1.Items.Strings[i], listview1); //Datei wird in der Listview hinzugefügt

       exparr:=explode('.', Listbox1.Items.Strings[i]);//hier wird der Dateiname zerlegt

       SHGetFileInfo(pchar('.'+exparr[length(exparr)-1]), FILE_ATTRIBUTE_NORMAL,fi,sizeof(fi),
       SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_SMALLICON or
       SHGFI_USEFILEATTRIBUTES); //Das passende Symbol für die Dateiendung wird herausgesucht

       icon.Handle := fi.hIcon; //wieder an das TIcon übergeben

       listview1.Items.Item[listview1.Items.Count-1].ImageIndex:= imagelist1.AddIcon(icon);// und dem Eintrag hinzugefügt
    end;
  end;

  Icon.Free; // Icon wieder freigegeben
end;