problem beim Dateien löschen

[SaFu]

So hab ich jetzt geschaft

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
Var iDurchlauf :Integer;
begin
 for iDurchlauf:= 1 to ShellTreeView2.Items.Count - 1 do
  begin
   ShellTreeView2.Select(ShellTreeView2.Items[iDurchlauf]);

  end;
end;

Es werden alle Ordner der ShellTreeView durchgegangen.

Und wie stelle ich es jetzt an, das ich heraus finde welche Ordner gelöscht werden können, stelle mir das irgendwie so vor:

Delphi-Quellcode:

for alle Dateien durchgehen do
if (2008 05 24 + *.*) < als z.b 90 Tage bitte löschen. // Vorne das ist die Datei(en)

So wie berechne ich das ganze jetzt das immer geprüft wird auf Alter des Dateinamens.

Es wäre echt nett wenn mir jemand helfen könnte, hänge jetzt schon 3 Wochen an dem Problem