Sucheergebnisse zur Laufzeit in Popupmenu übertragen

[Zackebarsch]

hallo erstma,

mein problem ist folgendes :
ich will einen bestimmten ordner nach (unter-)verzeichnissen und Dateien durchsuchen, die sollen dann zur laufzeit in ein popupmenu hinzugefügt werden. bisher hab ich das so realisiert :

Delphi-Quellcode:

  
    i:=0;
    PopupMenu:=TPopupMenu.Create(Self);
    pfad := 'D:\irgendeinordner\*';
    iattr := fadirectory;
    if FindFirst(pfad, iattr, sr) = 0  then
       begin
       repeat
          if (sr.Attr and iAttr) = sr.Attr then
              begin
              with PopupMenu do
                  begin
                  inc(i);
                  if i > 2 then
                      begin
                      NeuesItem := TMenuItem.Create(PopupMenu); // Neuen Eintrag erzeugen
                      Items.Add(neuesitem);// dem Popup-Menü hinzufügen
                      NeuesItem.Tag:=i;
                      NeuesItem.Caption := sr.Name;
                  //    onclick := PopupMenuItemsClick;
                      end;
                  end;
             end;
      until FindNext(sr) <> 0;
      end;
  FindClose(sr);
  Form1.PopupMenu := Popupmenu;
  end;

Jetzt krieg ich das aber nur so hin, dass der Inhalt des Verzeichnisses in das Popupmenu übertragen wird, allerdings nicht die Unterverzeichnisse. Ich weiss auch nicht, wie ich die Unterverzeichnisse dann in Untermenüs des Popupmenus bekommen soll.

Wäre für jede Hilfestellung dankbar !!
Gruß