Datumsfunktion in einer for-Schleife

[Ajintaro]

Hallo DP!

Ich habe Dateien mit einem Datum im Dateinamen. Fuer den heutigen Tag sieht sie z.B. so aus: 120213.zip

FormatDateTime('yymmdd',now)+'.zip'
Ich moechte nun die Dateien der letzten 14 Tage auf Anwesenheit pruefen. Vermeiden moechte ich:

Delphi-Quellcode:

if FileExists(FormatDateTime('yymmdd',now)+'.zip') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-1') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-2') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-3') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-4') then //mache dies und das
...

Das kann man bestimmt irgendwie eleganter loesen.

Delphi-Quellcode:

for i := 0 to -13 do
 begin
  if FileExists(FormatDateTime('yymmdd',now[i])+'.zip') then //mache dies und das
  dec(i);
 end;

So gehts auf jeden Fall nicht WIsst ihr Rat?