In Ordner nach Datei suchen, deren Endung unbekannt ist

[SirThornberry]

die Zeile
if (FindFirst(verz + '*.*',faAnyfile,search) = 0) then abändern in
if (FindFirst(verz + 'dateinameOhneEndung.*',faAnyfile,search) = 0) then Dadurch bekommst du nur dateien zurück geliefert welche den richtigen dateinamenanfang haben

Was soll eigentlich passieren wenn eine ".bmp", ".jpg" und ".gif" existiert. Welche der Dateien willst du dann verwenden? Du müsstest da noch eine hierarchie festlegen