liste alle FTP Daten. hatt noch kleine Fehler

[Deltachaos]

Da ich alle Daten eines FTP-Servers mit verzeichnissen listen muss und keine kompfortablere lösung gefunden habe, habe ich mir selbst etwas zusammengeschrieben.

Delphi-Quellcode:

function how_dirs(laenge: string): integer;
var how_dir1, how_dir2: integer;
begin
  for how_dir1:=0 to length(laenge) do
      if laenge[how_dir1]= '/' then ergebnis:= ergebnis+1;
end;

procedure bk;
var st: integer;
  procedure bk2;
  var s, z, d, dirs, dir: integer;
      ex2, ex: boolean;
  begin
    form1.IdFTP1.List(form1.ListBox2.Items,'',ex);
    dirs:= ergebnis;
    ergebnis:= 0;
    for z:=0 to form1.ListBox2.Count-1 do
    begin
      ex2:= true;
      for d:=0 to length(form1.ListBox2.Items[z]) do
        if form1.ListBox2.Items[z][d]= '.'
          then
          begin
            form1.ListBox1.AddItem(form1.dir.Text + '/' + form1.ListBox2.Items[z], TObject (form1));
            ex2:= false;
          end;
        if ex2
        then
          begin
            form1.ListBox3.AddItem(form1.dir.Text + '/' + form1.ListBox2.Items[z] + '/', TObject (form1));
            for dir:=0 to dirs do
              form1.IdFTP1.ChangeDir('../');
//              showmessage(inttostr(dir) + '  ' + inttostr(dirs));
          end;
    end;
    how_dirs(form1.ListBox3.Items[0]);
    form1.IdFTP1.ChangeDir(form1.ListBox3.Items[0]);
    form1.Listbox3.Items.Delete(0);
  end;
begin
//  for st:=form1.ListBox3.Count-1 to 0 do
  for st:=0 to 5 do
    begin
      bk2;
      showmessage('toll' + form1.ListBox3.Items[0]);
    end;
end;

Die ersten Verzeichnisse werden richtig gelistet auch die Dateien (nicht auf dem bild) aber irgendwie kommt danach nur kauderwelsch (Sihe Bild) raus.
Ich weis nicht wo der Fehler ist.