DirList optimieren

[Smiley]

Da ich nicht erkenne, wie ich das auflisten der Dateien im StartOrdner mit in die Klasse DirectoryUtils vernünftig einbaue, habe ich mir eine kleine Funktion gebastelt die mir die Dateien einliest und diese vor den Aufruf der DirectoryUtil Klasse gesetzt.

Delphi-Quellcode:

 StartFolder := 'C:\FB';
  FilterMaske := '*.*';

  StatusBar1.Panels[0].Text := 'suche Verzeichnisse';
  ListView1.Clear();
  ProgressBar1.Style := pbstMarquee;
  ProgressBar1.Position := 0;
  Button1.Enabled := False;

  //----------------------------------------------------
  PresentFiles(ListFiles(StartFolder,FilterMaske),0);
  //----------------------------------------------------

  FSearchDirTask := TDirectoryUtil.GetDirectoriesAsync(StartFolder, TSearchOption.soTopDirectoryOnly, nil,
    procedure(Directories: TStringDynArray; DirectoriesError: Exception)
    begin
      TThread.Synchronize(nil,
        procedure

Delphi-Quellcode:

function ListFiles(Path, FilterMaske: String): TStringDynArray;
Var
SearchResult:TStringDynArray;
Begin
  // Einlesen der Dateien ab dem Verzeichnis Path
  SearchResult := TDirectory.GetFiles(Path, FilterMaske, TSearchOption.soAllDirectories);
  Result:=SearchResult;
  end;

Wenn jemand eine Idee hat wie man das in der DirectoryUtil Klasse richtig macht, damit auch die Dateien im Hauptverzeichnis angezeigt werden, würde ich mich freuen.