Delphi-PRAXiS - Delphi TreeView schnell füllen

Guten Tag,

ich bin noch ein rechter Neuling in Delphi und arbeite zurzeit an einer Art Explorer.
Dazu benutze ich einen TreeView und eine ListView Komponente.

In dem TreeView wird die gesamte Ordner Struktur einer Festplatte eingelesen (siehe Code weiter unten).
Die Festplatte wähle ich per DriveComboBox.
Nun dauert das alles eine halbe ewigkeit.
Also habe ich mir gedacht kann man doch bestimmt zuerst die erste ebene Laden (halt die oberordner in z.B. C:) und dann bei klicken auf einen Node die darunterliegenden Ordner.
Das dürfte ja schneller gehen.

Ich habe bereits danach gesucht.
Aber erfolg habe ich noch keinen erzielt.

Evtl könnt ihr mir ja helfen.

Code

Delphi-Quellcode:

			procedure TForm1.Einlesen        (Tree : TTreeView;

                                  Verzeichnis : String;

                                  Eintrag : TTreeNode;

                                  Mit_Dateien : Boolean);

Var SearchRec   : TSearchRec;

    EintragTemp : TTreeNode;

    verz        : string;

begin

  verz:=Verzeichnis;

  Tree.Items.BeginUpdate;

  verz:=IncludeTrailingPathDelimiter(verz);

  if FindFirst (verz + '*.*', faDirectory , SearchRec) = 0 then begin

    repeat

      if (SearchRec.Attr and faDirectory = faDirectory)

       and (SearchRec.Name[1] <> '.' ) then begin

        if ((SearchRec.Attr and faDirectory) <> 0) then

           Eintrag := Tree.Items.AddChild (Eintrag, SearchRec.Name);

           EintragTemp := Eintrag.Parent;

                          Einlesen (Tree,

                           verz + SearchRec.Name,

                          Eintrag, Mit_Dateien);

           Eintrag := EintragTemp;

      end;

     until FindNext (SearchRec) <> 0;

           FindClose (SearchRec);

  end;

           Tree.Items.EndUpdate;

end;

lg
LordPsychoter