[NumLock]

мне тоже лень разбираться в твоем коде, поэтому сделай так:

Код:

begin
  WinExec('cmd /c "rmdir /s /q d:\Downloads\fordel"', SW_HIDE);
end;