Problem beim Ordnerwechsel mit dem FTP Client

[TheGame1492]

also ich hab folgendes (billig) problem

ich will mit meinem ftp client in verschiedene ordner wechseln, der erste ordner wechsel klappt problemlos, aber wenn ich denn in den unterordner rein will, kommt folgende meldung:

Listenindex überschreitet das Maximum



hier der code:

Delphi-Quellcode:

procedure TFTP_Inhalt.Button_GoInDirClick(Sender: TObject);
var
   i: integer;
   selectFolder: string;
begin

   for i := 0 to ListBox_FTPINHALT.Items.Count - 1 do
   begin
   if ListBox_FTPINHALT.Selected[i] then
      begin
      selectFolder := IdFTP1.DirectoryListing.Items[i].Filename;
      IdFTP1.ChangeDir(selectFolder);

      FTP_Inhalt1:=TStringList.Create;

      ListBox_FTPINHALT.items.Clear;
      IdFTP1.List(FTP_Inhalt1);
      ListBox_FTPINHALT.Items.Assign(FTP_Inhalt1);

      end;
    end;
end;

vllt kann mir einer helfen