用webbrowser为什么还会出现“未激活的注册XXX错误”？？？ 100分～～～～～～(100分)

各位高手~~~帮帮我～～～～～
我在使用webbrowser保存或者查找网页的时候总是会出现“未激活的注册XXX错误”，
我在uses里面加了ActiveX了呀
implementation后面也加了
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end.
但是为什么在执行
webbrowser.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT,EmptyParam,EmptyParam);
的时候还是会出现同样的错误提示呢？
谁能够解答我就把100分给他了。。。。。。。。。。

WebBrowser是否已加载了网页？

那么还有查找网页中的内容呢？？？怎么也会出现那个错误？？？

帮我解决了吧，解决后分数马上送上！！！谢谢

帮你up一下

//查找网页中的内容
procedure TMyBook.SpeedButton45Click(Sender: TObject);
var
CmdTarget: IOleCommandTarget;
PtrGUID: PGUID;
vaIn, vaOut: Olevariant;
const
CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
HTMLID_FIND = 1;
begin
New(PtrGUID);
PtrGUID^ := CLSID_WebBrowser;
if WebBrowser1.Document <> nil then
try
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget <> nil then
try
CmdTarget.Exec(PtrGuid, HTMLID_FIND, 0, vaIn, vaOut);
finally
CmdTarget._Release;
end;
except end;
Dispose(PtrGUID);
end;

我能够这样查找网页的内容吗？
webbrowser.ExecWB(OLECMDID_FIND,OLECMDEXECOPT_DODEFAULT,EmptyParam,EmptyParam);