Dateien Suchen nach Endung?

[SirThornberry]

dazu sollte es jede menge Beispiele geben. Als tipp:
if Copy(sr.name,1,1)<>'.' then Diese Anweisung filtert nicht nur "." und ".." sondern alles was mit einem "." beginnt.

und Anstelle von
System.Copy(sr.name, Pos('.',sr.name),4) kannst du auch
ExtractFileExt(sr.name) verwenden. Dann solltest du beachten das zum Beispiel ".txt" und ".TxT" nicht das gleiche ist.
Dein vergleich
if System.Copy(sr.name, Pos('.',sr.name),4)='.'+ext then schlägt also auch fehl wenn groß/klein-schreibung verschieden ist.

Zudem wäre es recht hilfreich wenn du uns den Fehler nennen würdest der ab und zu kommt und an welcher Stelle dieser kommt.