SOS,用d7使用TDHTMLEdit出现的问题，请高手回答（大送分，200分）(200分)

大侠您好，
[green]我用d7，用TDHTMLEdit时，实现“剪贴”、“复制”功能时，运行时提示出现“灾难性故障”，我的代码是这样写的：[/green]
procedure TFormDhtml.tbtnCutClick(Sender: TObject);
var
i: OleVariant;
begin
if DHTMLEdit1.QueryStatus(DECMD_CUT) >= DECMDF_ENABLED then
DHTMLEdit1.ExecCommand(DECMD_CUT, OLECMDEXECOPT_DODEFAULT, i);
//DHTMLEdit1.DOM.execCommand('cut',false,0);
end;

procedure TFormDhtml.tbtnCopyClick(Sender: TObject);
begin
DHTMLEdit1.ExecCommand(DECMD_COPY, OLECMDEXECOPT_DODEFAULT);
end;

我记得好像得用一个单元
uses ComCtrls,OleCtrls,OleCtnrs,DHTMLEDLib_TLB,MSHTML_TLB,shlobj,ComObj

应该是这里面的具体不清楚哪一个。

哦是用OleCtnrs,就可以了。

同意楼上
procedure TForm1.Button1Click(Sender: TObject);
begin
if (DHTMLEdit1.QueryStatus(DECMD_CUT) and DECMDF_ENABLED) = DECMDF_ENABLED then
DHTMLEdit1.ExecCommand(DECMD_CUT, OLECMDEXECOPT_DODEFAULT, EmptyParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DHTMLEdit1.ControlInterface._AddRef ;
end;

多谢两位的解答，
给加分，150+50
另外还有个问题：
为什么要加：
Uses
OleCbtrs
?