Dateien löschen älter als xxx

[F.W.]

Ich denke mal dein Code hört schon zum ersten mal da auf:
FindFirst( ... , faDirectory, ... ) Denn damit erhälst du ja nur Verzeichnisse. Selbst wenn du Verzeichnisse auf deinem Desktop hast, würde es dann mit
 if (SearchRec.Attr <> faDirectory) and (SearchRec.Name <>'.') and (SearchRec.Name <>'..') then eh nicht weitergehen, denn wenn oben nur faDirectory aufgelistet wird und unten steht if Attr <> faDirectory, schließt sich das von selbst aus.

Übergib beim FindFirst mal faAnyFile!