使用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出现错误，是怎么的，怎么回事？请说下。谢谢了

指教本人是新手

两个问题：

1. ShellAbout函数的声明是在Shellapi单元中，所以需要use一下：
uses ShellAPI;

2. 第4行代码最后是一个中文的逗号，要改成半角的逗号才能通过编译，如：

procedure TForm1.A1Click(Sender: TObject);
begin
  ShellAbout(Application.MainForm.Handle,
  '此处写您的软件名称',
  'Copyright (c) 2001-2002'#13'http://www.sgjz.cn',
  Application.Icon.Handle);
end;