Funktion erweitern

[Muellermilchtrinker]

Hallo DP,

ich hab folgende Funktion:

Delphi-Quellcode:

Procedure FülleOrdnerInTreeView(Pfad:String;TreeView:TTreeView;Node:TTreeNode;
                                Dateimaske:String;DateiendungAnzeigen:Boolean);
var Files:TSearchRec; erg:Integer; DateiName:String;
begin
if (Pfad <> '') then //wenn kein Pfad angegeben dann abbrechen
begin
  if Pfad[length(Pfad)] <> '\' then Pfad := Pfad + '\'; //wenn kein '\' dann hinzufügen
  erg := FindFirst(Pfad + Dateimaske, faAnyFile, Files); //erste Datei holen (Ergebnis <> 0 = nix gefunden)
  while erg = 0 do //wenn Datei gefunden weitersuchen
  begin
    Dateiname := Files.Name;
    if DateiendungAnzeigen=False then
    begin
      Delete(Dateiname,Pos('.',Dateiname),Length(Dateimaske));
    end;
    TreeView.Items.AddChild(Node,Dateiname);
    erg := FindNext(Files); //nächste Datei suchen
  while ((Files.Name = '.') or (Files.Name = '..')) and (erg <> 0) do erg := FindNext(Files); //Filtert "." und ".." raus.
  end;
    FindClose(Files); //SearchRec freigeben
    TreeView.Items.Item[0].Expand(True);
end;
end;

ich möchte gerne jetzt, dass die auch die unterordner einfüllt.
Wäre nett, wenn ihr mir helfen könnt.