TreeView schnell füllen

[LordPsychoter]

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