Filter aus mehreren Endungen an Funktion übergeben!?

[torud]

Hallo Wissende,

ich nutze folgende kleine Procedure, um alle möglichen Dateien in einer Checklistbox auflisten zu lassen. Bisher bin ich aber leider auf einen Dateityp begrenzt.

Delphi-Quellcode:

procedure TMainForm.GetFilesInDirectory(ADirectory: string; AMask: String; AList: TStrings; ARekursiv: Boolean);
var
  SR: TSearchRec;
begin
  if (ADirectory<>'') and (ADirectory[length(ADirectory)]<>'\') then
    ADirectory:=ADirectory+'\';

  if (FindFirst(ADirectory+AMask,faAnyFile-faDirectory,SR)=0) then begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
          AList.Add(ADirectory+SR.Name)
    until FindNext(SR)<>0;
    FindClose(SR);
  end;

  if ARekursiv then
    if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then
    begin
      repeat
        if (SR.Name<>'.') and (SR.Name<>'..') then
          GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True);
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
end;

Mit folgendem Aufruf übergebe ich die Paramter.
GetFilesInDirectory(ed_path.Text,'*.*htm*',CheckListBox1.Items,True); In diesem Beispiel werden nur htm, html, shtml und dhtml-Dateien in der Checklistbox aufgelistet. Wie kann ich der Procedure aber mitteilen, dass ich zum Beispiel gern alle pas, htm und asp-Dateien aufgelistet haben möchte ?

Vielen Dank für Eure Hilfe
Tom