Problem mit FindFirst und Dateiendungen

[Helmi]

Hallo,

ich verwende folgende Procedure um die Dateinamen mit einer bestimmten Endung in einer Liste auflisten zu lassen:

Delphi-Quellcode:

procedure GetFilesInDirectory(Directory: String; const Mask: String; List: TStrings);
var
  SR: TSearchRec;

begin
  List.BeginUpdate;

    try
      List.Clear;

      If Directory <> '' then
        begin
          IncludeTrailingPathDelimiter(Directory);

          If FindFirst(Directory + Mask, faAnyFile - faDirectory, SR) = 0 then
            try
              repeat
                List.Add(Directory + SR.Name)
              until FindNext(SR) <> 0;
            finally
              FindClose(SR);
            end;
        end;
    finally
      List.EndUpdate;
    end;
end;

Das geht auch gut - zu gut sogar!

Aufgerufen wird die Procedure bei mir so:
GetFilesInDirectory(Masken_Ordner, '*.msk', Masken_Dateiliste); In dem Ordner "Masken_Ordner" befinden sich eben Dateien mit der Endung "*.msk*". Diese werden auch in die Liste "Masken_Dateiliste" geschrieben.
Wenn aber nun eine Datei die Endung "*.msk2" hat z. B. wird sie trotzdem gefunden.

Wie kann ich verhindern, dass auch andere Dateien mit aufgelistet werden, sondern nur die mit der Endung *.msk?