如何在WebBrowser designMode下，插入Script代码

[苏丹-陈]

我要在webbrowser的编辑模式下，插入Script代码<script language="Javascrpt">...</script>,或者选中已有的Script然后，编辑JavaScript,将编辑的结果更新到webbrowser的document对象.
我使用
sel := EditDoc.selection.createRange as IHTMLTxtRange;
sel.pasteHTML('<script language="JavaScript">alert(1111);</script>');
总是看不到插入的效果。如果插入一般的HTML源代码就可以。例如<b>1111</b>

说明我已经使用 Using Editing Glyphs
http://msdn.microsoft.com/workshop/browser/editing/usingeditingglyphs.asp?frame=true 可以看到原先源代码中的<script>反映出来的图例。

希望大家给我多点建议。我试了其他一些方法也是不行。不知道谁成功过，还是我的Delphi有问题,Delphi 6 + IE 6

[苏丹-陈]

up 没有人知道吗？