使用ShellAbout打开关于对话框，如何出现异常了

使用ShellAbout打开关于对话框，怎么出现错误了？
我的语法是这样的
procedure TForm1.A1Click(Sender: TObject);
begin
  ShellAbout(Application.MainForm.Handle,
  '此处写您的软件名称'，
  'Copyright (c) 2001-2002'#13'http://www.sgjz.cn',
  Application.Icon.Handle);
end;

end.

我运行，此段种的ShellAbout出现错误，是怎么的，怎么回事？请说下。谢谢了

指教本人是新手

[解决办法]
骚瑞，我的QQ不聊天。

在单元的前面，有Use XXX,XXX之类的，再多加一个Shellapi就行了，如：

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI;