Dateien löschen älter als xxx

[SaFu]

Hi

steh mal wieder vor einem Problem hab diesen code hier gefunden in der DP

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
Var   SearchRec :TSearchRec;
begin
  if FindFirst(JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'\*.*', faDirectory, SearchRec) = 0 then
  begin
    showmessage((JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'\'));
    repeat
       if (SearchRec.Attr  <> faDirectory) and  (SearchRec.Name <>'.') and (SearchRec.Name <>'..') then
       begin
        showmessage(SearchRec.Name);
        if FileDateToDateTime(FileAge(JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'\' + SearchRec.Name)) < (Date -20) then
        begin
          DeleteFile(JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'\' + SearchRec.Name); // Delete File
        end;
       end;
    until FindNext(SearchRec) <> 0;
  end;
  FindClose(SearchRec);
end;

Jetzt ist mein problem das ich nicht weiter komme bis zum showmessage ich bin der Meinung das es so stimmt. der Pfad stimmt aber

Gruß Sascha