Moin Helmi,
als Ergängzung zu Evangelias Beitrag:
Merk' Dir am Besten die übergebenen Maske.
Delphi-Quellcode:
var
sMsk : string;
begin
sMsk := UpperCase(ExtractFileExt(Mask));
//...
end;
Dann musst Du das nur einmal machen.
Aber eines noch:
Das
faAnyfile - faDirectory
geht ja nun garnicht
(auch wenn es in diesem Falle funktioniert).
Es handelt sich hier um Bitwerte.
Wenn Du nun also einen rausrechnen willst dann mit and not
faAnyFile and not faDirectory