清空回收站问题

Question

我编一个清空回收站的小程序，程序如下：
program Phuishouzhan1;{$APPTYPE CONSOLE}uses
 windows,messages,sysutils,classes,graphics,controls,forms,dialogs,stdctrls,shellapi;
const
  sherb_noconfirmation=$00000001;
  sherb_noprogressui=$000000002;
  sherb_nosound=$00000004;
type
  TSHEmptyRecycleBin=function(Wnd:HWND;pszRootPath:PChar;dwFlags:DWORD):HRESULT;stdcall;
var
  SHEmptyRecycleBin:TSHEmptyRecycleBin;
  LibHandle:THandle;begin
  { TODO -oUser -cConsole Main : Insert code here }
  LibHandle:=LoadLibrary(PChar('shell32.dll'));
   if libhandle<>0 then
   @SHEmptyRecycleBin:=getprocaddress(libhandle,'SHEmptyRecycleBinA');
   if @SHEmptyRecycleBin<>nil then｛此行报错｝
   SHEmptyRecycleBin(0,'',SHERB_NOCONFIRMATION);
   freelibrary(libhandle);
   @SHEmptyRecycleBin:=nil;
  end.运行出错，提示SHEmptyRecycleBin未被初始化。另外，运行时出现一个窗口闪几秒
后关闭。请问如何改？