webbrowser問題(100分)

如何取得webbrowser中，用鼠标选中的文本啊

下面的代码得到Webbrowser里面选中的文字并将其送到剪贴板。
var
Doc: IHtmlDocument2;
TxtRange: IHtmlTxtRange;
begin
Doc :=WebBrowser1.Document as IHtmlDocument2;
TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange;
Clipboard.SetTextBuf(Pchar(TxtRange.Get_text));
end;