Delphi WEBBROWSER. Как выделенный текст удлинить до края слова.

[AvRob]

При создании Hyperlink-ов необходимо выделенный текст удлинить до края слова.
Как можно это сделать программно.

[AvRob]

У IHTMLTxtRange усть функция Expand, которая выравнивает selection по началу и концу слова.

TextRange:=((Webbrowser1.Document as IHTMLDOCUMENT2).selection.createRan ge as IHTMLTxtRange);
if Assigned(TextRange) then TextRange.Expand('word');

В TextRange.text содержится то, что нужно (выравненный по началу и концу слова selection). Но в Webbrowser-e selection не меняется.
Как в Webbrowser-e можно изменить selection, сделав равным TextRange.text.