有谁写过浏览器？高分求救！(50分)

[求助]有谁写过浏览器？救命！！！
有谁写过浏览器的。赶快看看以下代码为何为出错：
procedure TMainForm.MICopyClick(Sender: TObject);
var
temp:OLECMDF;
begin
try
temp:=WebBrowser.QueryStatusWB(OLECMDID_COPY);
if temp=OLECMDF_SUPPORTED then
raise exception.Create(‘复制错误‘);
WebBrowser.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT);
except on ex:exception do
ShowMessage(‘复制错误‘+ex.Message);
end;
end;

procedure TMainForm.MIPasteClick(Sender: TObject);
var
temp:OLECMDF;
begin
try
temp:=WebBrowser.QueryStatusWB(OLECMDID_PASTE);
if temp=OLECMDF_SUPPORTED then
raise exception.Create(‘粘贴错误‘);
WebBrowser.ExecWB(olecmdid_paste,olecmdexecopt_dodefault);
except on ex:exception do
ShowMessage(‘粘贴错误‘+ex.Message);
end;
end;

以上代码在运行时如果在TWebBrowser中复制就会报错，为何？？？？

http://www.delphibbs.com/delphibbs/dispq.asp?lid=0379171

http://www.datacn.com/acdown/list.asp?id=14

xw84611兄，你的提示通过了，谢谢！但是新的问题又来了，怎么判断浏览器的复制、
粘贴状态来控制菜单栏的允许状态呀？

多人接受答案了。