CMD über ShellExecute

[SaFu]

Hallo,

ich versuche Dateien die alter sind als X Tage über CMD zu löschen mit folgenden Code

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(handle,'open','cmd.exe','ForFiles /p "C:\Users\NAME\Desktop\Test" /s /m *.* /d -60 /c "cmd /c del @file"',nil,SW_hide);
end;

Über CMD und einer Batchdatei funktioniert es wie es soll aber warum nicht so?

Würde ungern den umweg über eine Batchdatei gehen.

LG