怎样声明这个CreateComObject标示符？(20分)

procedure TForm1.A4Click(Sender: TObject);
var
ShellUIHelper: ISHellUIHelper;
url, title: Olevariant;
begin
Title :=WebBrowser1.LocationName;
Url :=WebBrowser1.LocationURL;
if Url <> '' then
begin
//ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper;
ShellUIHelper.AddFavorite(url, title);
end;
end;
上面这段程序提示说，未声明的标示符，CreateComObject，如何声明？

应用 ComObj 就可以了

-----
http://www.8421.org

接受答案了.