Verzeichnis im TreeView anzeigen

[MaestroAlbi]

Hi,

vll kann mri ja jemand weiterhelfen. Ich wollt das Verzeichnis von einem Laufwerk im Treeview anzeigen und auch dort Ordner auswählen können und habe es so weit geschafft.

Delphi-Quellcode:

function TWinForm.OrdnerSuchen(Verzeichnis:String; Index:Integer):Boolean;
var
  oDir      : DirectoryInfo;
  nNode     : TreeNode;
  iIndex    : Integer;


begin

  dVerzeichnis := DirectoryInfo.Create(Verzeichnis);
  OrdnerSuchen:= True;
  
  for oDir in dVerzeichnis.GetDirectories()  do
      begin
        try
          If OrdnerSuchen(oDir.FullName, Index)= True then begin
             
             //------
             nNode := TreeView1.Nodes[Index].Nodes.Add (oDir.Name);          
             TreeView1.Nodes[Index].Nodes[TreeView1.Nodes[Index].Nodes.IndexOf(nNode)].Nodes.Add (dVerzeichnis.Name);

            OrdnerSuchen:= True;
          end;
         except
            OrdnerSuchen:= False;
          end;
      end;

end;

Jetzt fehlt mir nur, dass die Ordner auch in einer Hierachie (wie im Explorere) angezeigt werden. Dies funktioniert nicht richtig. Kann mir jemand weiterhelfen?