Alle Dateien eines Verzeichnisses außer *.ini

[Bea]

Hallo,
ich möchte in einem Verzeichnis alle Dateien aufgelistet bekommen außer *.ini
Im Moment liste ich alle Dateien mit folgender Funktion auf:

Delphi-Quellcode:

procedure ListFileDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
    begin
      repeat
        if (SR.Attr and faDirectory) = 0 then
          begin
            FileList.Add(SR.Name);
          end;
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
end;

Wie kann ich nun bestimmte Dateitypen ausschließen?

Gruß Bea