[NumLock]

Код:

uses
  ShellAPI,

var
  shfos: TSHFileOpStruct;
begin
  ZeroMemory(@shfos, SizeOf(TSHFileOpStruct));
  shfos.Wnd:=Handle;
  shfos.wFunc:=FO_DELETE;
  shfos.pFrom:='d:\Downloads\fordel'#0#0;
  shfos.fFlags:=FOF_SILENT or FOF_NOCONFIRMATION;
  SHFileOperation(shfos);
end;