unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, ShellApi,Controls,
  Forms, Dialogs,StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;
var
  Form1: TForm1;
function SHEmptyRecycleBin(Wnd: HWnd; LPCTSTR: PChar; DWORD: Word): Integer; stdcall;
const
  SHERB_NOCONFIRMATION = $00000001;
  SHERB_NOPROGRESSUI = $00000002;
  SHERB_NOSOUND = $00000004;
implementation
{$R *.DFM}
function SHEmptyRecycleBin; external 'SHELL32.DLL' name 'SHEmptyRecycleBinA';
procedure TForm1.Button1Click(Sender: TObject);
begin
  SHEmptyRecycleBin(self.handle, '', SHERB_NOCONFIRMATION);
end;
end.

uses shellapi, ......

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir +#0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (deldir('C:\My Documents\New Folder')=true then
     ShowMessage('Directori telah terhapus'); 
end;