Dateisuch mit variablen Filter, aber wie?

[knolli]

hi!

ich habe ein kleines problem.
Ich möchte mir von meinem Programm alle Dateien mit ner bestimmten Dateiendung anzeigen lassen. Halt den endungen wie sie in den Filtern stehen.
Nun hab ich aber das problem, das ich nicht weiß wie ich das am besten anstelle. ich hab mir es wie foglt vorgestellt.

ich klicke auf die gewünschten filter und dann auf den gewünschten ordner. bei klick auf suche sollen mir dann die gefundenen Dateien angezeigt werden.
ich benutze übrigens diesen code

Delphi-Quellcode:

procedure FindAllFiles(const FileList: tstrings;RootFolder: string; Maske: array of string; Recurse: Boolean = True);
var
  SR: TSearchRec;
  i : integer;
begin
  RootFolder := IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory = faDirectory then
            // --> ein Verzeichnis wurde gefunden
            //   der Verzeichnisname steht in SR.Name
            //   der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist
            //       RootFolder + SR.Name
          if (SR.Name <> '.') and (SR.Name <> '..') then
            FindAllFiles(FileList, RootFolder + SR.Name, Maske, Recurse);
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  i := 0;
  repeat
    begin
      if FindFirst(RootFolder + '*' + Maske[i], faAnyFile, SR) = 0 then
      try
        repeat
          if SR.Attr and faDirectory <> faDirectory then
          begin
            // --> eine Datei wurde gefunden
            //   der Dateiname steht in SR.Name
            //   der vollständige Dateiname (inkl. Pfadangabe) ist
            //       RootFolder + SR.Name
            FileList.Add(RootFolder + SR.Name);
          end;
        until FindNext(SR) <> 0;
      finally
        FindClose(SR);
      end;
      i := i + 1;
    end
  until
    i = high(maske) + 1;
end;

mein problem ist halt wie ich die maske(die sich ja immer ändern kann) mit übergebe.
Ich hab es bis jetz so versucht, das ich on klick auf eine checkbox die maske ändere.
aber das bringt mit nicht das gewünschte ergebnis.

vllt kann mir jemand helfen.