Du hast doch 3 Kriterien, die es zu prüfen gilt:
1. Erstellungsdatum
2. Anfang des Dateinamens
3. Dateiendung
1. scheint ja schon zu klappen, für 2. kannst Du etwas in der Art
if Pos(FormatDateTime('yyyy mm dd',now),Rec.Name) = 1 then
versuchen, und für 3.
if AnsiLowerCase(ExtracFileExt(Rec.Name)) = Deine_Endung_in_Kleinschreibung then
. Sollte funktionieren
