1:

if idFTP1.DirectoryListing.Items[x].ItemType = ditDirectory then .......					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.ConnectToFTP1Click(Sender: TObject);
begin
  idFTP1.Host:=Edit1.Text;                                          //  Parameter  und   Connecten 
  idFTP1.Username:=Edit2.Text;
  idFTP1.Password:=Edit3.Text;
  idFTP1.Port:=StrToInt(DBEdit4.Text);
  if CheckBox1.Checked = True then idFTP1.Passive:=True    // mit oder ohne Passiv moded
      else idFTP1.Passive:=False;
  idFTP1.Connect(True);
  ShowMessage('You are CONNECTED!');                       // angeigen
  Panel1.Color:=clLime;
  Panel1.Caption:='Connected';
  for x:=0 to idFTP1.DirectoryListing.Count do               // Ordner und Dateien anzeigen
    if idFTP1.DirectoryListing.Items[x].ItemType=ditDirectory then ListBox1.Items.Add(idFTP1.DirectoryListing.Items[x].Text)
        else ListBox2Items.Add(idFTP1.DirectoryListing.Items[x].Text);
end;					

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:

procedure TForm1.ConnectToFTP1Click(Sender: TObject); 
var 
  x: Integer;
  Filelist: TStringList;
begin
    idFTP1.Host:=Edit1.Text;                                         
    idFTP1.Username:=Edit2.Text; 
    idFTP1.Password:=Edit3.Text; 
    idFTP1.Port:=StrToInt(DBEdit4.Text); 
    idFTP1.Passive:=CheckBox1.Checked;

    Filelist:=TStringList.Create;

    idFTP1.Connect(True);
    ShowMessage('You are CONNECTED!');                     
    
    idFTP1.List(Filelist);         //List-Kommando ausführen, DirectoryListing wird dadurch gefüllt

    for x:=0 to idFTP1.DirectoryListing.Count-1 do      //Count - 1, damit nicht zuweit gezählt wird
       if idFTP1.DirectoryListing.Items[x].ItemType=ditDirectory then
           ListBox1.Items.Add(idFTP1.DirectoryListing.Items[x].Filename)
       else
           ListBox2.Items.Add(idFTP1.DirectoryListing.Items[x].Filename);

       //Filename statt Text, damit nur der Dateiname angezeigt wird

    FreeAndNil(FileList);
end;