Also ich würde anstatt
filename := Format('C:\%s_%s.BAK', [DB, FormatDateTime('d_mmm_yyyy', Date)]);
eher
filename := Format('C:\%s_%s.BAK', [FormatDateTime('yyyymmdd', Date), DB]);
verwenden, da man dann die Dateien leichter nach dem Datum sortieren kann.