//看到文档全选的过程。
    　　　　TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange;
    　　　　TxtRange.FindText(''Text to be searched'',0.0);
    　　　　TxtRange.Select;
    　　　end;
    　　还有，从Txt.Get_text可以得到当前选中的文字内容，某些时候是有用的。
    ------------------------------------------------------------------------------------------------
    １０、提取网页中所有链接
    　　这个方法来自大富翁论坛hopfield朋友的对一个问题的回答，我本想自己试验，但总是没成功。
    　　var
    　　　doc:IHTMLDocument2;
    　　　all:IHTMLElementCollection;
    　　　len,i:integer;
    　　　item:OleVariant;
    　　begin
    　　　doc:=WebBrowser1 .Document as IHTMLDocument2;
    　　　all:=doc.Get_links;　　　　　　　　　　　　　//doc.Links亦可
    　　　len:=all.length;
    　　　for i:=0 to len-1 do begin
    　　　　item:=all.item(i,varempty);　　　　　　　　//EmpryParam亦可
    　　　　memo1.lines.add(item.href);
    　　　end;
    　　end;
    ------------------------------------------------------------------------------------------------
    １１、设置TWebBrowser的编码
    　　为什么我总是错过很多机会？其实早就该想到的，但是一念之差，便即天壤之别。当时我要是肯再多考虑一下，多试验一下，这就不会排到第１１条了。下面给出一个函数，搞定，难以想象的简单。
    　　procedure SetCharSet(AWebBrowser: TWebBrowser; ACharSet:
    String);
    　　var
    　　　RefreshLevel: OleVariant;
    　　Begin
    　　　IHTMLDocument2(AWebBrowser.Document).Set_CharSet(ACharSet);
    　　　RefreshLevel :=7;　　　　　　　　　　　　　　//这个7应该从注册表来，帮助有Bug。
    　　　AWebBrowser.Refresh2(RefreshLevel);
    　　End;