delphi - 程序关闭时，TEmbeddedWB 重复复制操作

Question

我执行以下代码将整个文本从 TEmbeddedWB 复制到剪贴板：

EWBH.ExecWB(OLECMDID_SELECTALL,      OLECMDEXECOPT_DODEFAULT);
EWBH.ExecWB(OLECMDID_COPY,           OLECMDEXECOPT_DODEFAULT);
EWBH.ExecWB(OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DONTPROMPTUSER);

但是，在此之后关闭程序时，某些东西会自动再次复制相同的内容。我已经检查过这段代码没有再次执行，所以它必须是其他东西（TEmbeddedWB？），它在程序关闭时进行复制。

上面的代码有问题吗？程序关闭时如何防止额外的复制？

EDIT201404011858：如果在执行上述代码后将其他内容复制到剪贴板，则似乎不会出现问题。