高手指点一下-----关于COM外壳扩展

我编了一个外壳扩展程序，工程文件如下：library RealRMenu;uses
  ComServ,
  RealRMenu1 in 'RealRMenu1.pas';exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;{$R *.RES}begin
end.上面的程序编译后生成
我在程序的button1的onclick事件里调用DllRegisterServer可以向系统注册一个右键菜单项,
但是,在调用DllUnRegisterServer时老是不正确，提示信息如下:    "不能定位DllUnRegisterServer的入口点!"调用的单元代码如下：unit CallRealRMenu1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
function DllRegisterServer:HResult;stdcall;external 'RealRMenu.dll';
function DllUnRegisterServer:HResult;Stdcall;external 'RealRMenu.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
  DllRegisterServer;    //这儿没有问题
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  DllUnRegisterServer;  //这个地方调用出错
end;end.哪位高手知道怎么解决! 请指点一下，不胜感激!