How to empty Recycle bin with Delphi

Code :

Procedure EmptyRecycleBin ;
Const
   SHERB_NOCONFIRMATION = $00000001 ;
   SHERB_NOPROGRESSUI= $00000002 ;
   SHERB_NOSOUND= $00000004 ;
Type
   TSHEmptyRecycleBin = function (Wnd : HWND;
   pszRootPath : PChar;
   dwFlags : DWORD
   ) : HRESULT; stdcall ;
Var
   SHEmptyRecycleBin : TSHEmptyRecycleBin;
   LibHandle : THandle;
Begin
    LibHandle := LoadLibrary(PChar('Shell32.dll')) ;
    if LibHandle <> 0 then
    @SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
    else
    begin
         MessageBox(GetActiveWindow,PChar('Gagal melakukan loading Shell32.dll.'),'Error',24);
         Exit;
    end;
    if @SHEmptyRecycleBin <> nil then
    SHEmptyRecycleBin(GetActiveWindow,
    nil,
    SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
    FreeLibrary(LibHandle);
    @SHEmptyRecycleBin := nil ;
end;