關於編寫瀏覽器的問題

[ccnp]

今天我編寫瀏覽器,開始我定義了一個IShellUIHelper接口的常量,
const
CLSID_ShellUIHelper:TGUID='{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';

在代碼中,我寫了這樣一個過程,
procedure TFrmBrowser.ActAddToExecute(Sender: TObject);
var
ShellUIHelper:IShellUIHelper;
url,title:Olevariant;
begin
title:=WebBrowser.LocationName;
url:=WebBrowser.LocationURL;
if url<>'' then
begin
ShellUIHelper:=CreateComObject(CLSID_ShellUIHelper) as ShellUIHelper;
ShellUIHelper.AddFavorite(url,title);
end;
end;

目的是讓用戶將用戶喜愛的頁面添加到收藏夾中,在編譯的時候

ShellUIHelper:=CreateComObject(CLSID_ShellUIHelper) as ShellUIHelper;
這行報錯,錯誤是[Error] Unit1.pas(337): Operator not applicable to this operand type
我不知道該怎樣解決,請高手幫忙