Code:

HTML_Doc := WebBrowser1.Document As IHTMLDocument2;

Window := HTML_Doc.parentWindow As IHTMLWindow2;

Body := HTML_Doc.get_body As IHTMLBodyElement;

Range := oBody.createTextRange;

Code:

var

a:IHTMLTxtRange;

a:=IHTMLDocument2(webbrowser1.Document).selection.createRange as IHTMLTxtRange;