idFTP Ordner rekursiv auflisten

[MorphieX]

Hallo liebe DPer!

Ich versuche die gesamte Verzeichnisstruktur eines FTP Servers rekursiv auszulesen und anschließend in eine TreeView einzutragen.

Mein Code sieht so aus:

Delphi-Quellcode:

procedure TForm1.auflisten(CurrentNode: TTreeNode);
var
i: integer;
l: TIdFtpListItems;
current: TTreeNode;
begin
  idftp1.List(nil,'',true);
  l:=idftp1.DirectoryListing;
  for i := 0 to l.Count-1 do
  begin
    current:=TreeView1.Items.AddChild(CurrentNode,l.Items[i].FileName); // < hier knallts!
    current.ImageIndex:=-1;
    if (l.Items[i].ItemType=ditDirectory) then
    begin
      current.ImageIndex:=0;
      idftp1.changedir(l.Items[i].FileName);
      auflisten(current);  // < Hier wird auflisten rekursiv aufgerufen
      idftp1.ChangeDirUp;
    end;
  end;
end;

Ich rufe das ganze dann mittels
auflisten(nil); auf.

Sobald der erste rekursive durchlauf beendet wird, nimmt l.count jedoch die Anzahl der zuvor aufgerufenen liste an.

Beispiel:

1. root (l.count = 3)
2. --html (l.count = 2)
3. ----testprojekt (l.count = 0)
4. ----forum (l.count = 0)
5. --backup (l.count = 1)
6. ----heute (l.count = 0)
7. --temp (l.count = 0)

So sollte es aussehen.

Es sieht aber so aus:

1. root (l.count = 3)
2. --html (l.count = 2)
3. ----testprojekt (l.count = 2)
4. ----forum (l.count = 2)
5. --backup (l.count = 2)
6. ----heute (l.count = 2)
7. --temp (l.count = 2)

wenn ich jetzt
current:=TreeView1.Items.AddChild(CurrentNode,l.Items[i].FileName); // < hier knallts! schreibe, kommt ein Fehler:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EListError mit der Meldung 'Listenindex überschreitet das Maximum (3)' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Die Fehlermeldung ist nicht mit dem Beispiel kompatibel (Nur, falls sich jemand über Listenindex 3 wundert)


Hat da jemand ne Idee, woran das liegen könnte? Oder besser: wie kann man das beheben / umgehen???
Es kommt mir so vor, als wär

Delphi-Quellcode:

var
l: TIdFtpListItems;

global deklariert, ist es aber nicht! (verhält sich aber eben so)

Hoffe ich konnte mein Problem etwas plausibel darstellen... Ich versteh es ja selbst nicht so ganz