在TWebbrowser 里加入html文本

**uses
** MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
**begin
** Webbrowser1.Navigate('www.baidu.com');
//启动一个网站的网页
end ;

procedure TForm1.Button2Click(Sender: TObject);
**var
** Range: IHTMLTxtRange;
**begin
** Range := ((WebBrowser1.Document as IHTMLDocument2).body **as
** IHTMLBodyElement).createTextRange;
Range.collapse(False);
Range.pasteHTML('

1<br/>

1<b>大家好,我是老李,csdn Id Laoli</b>

');
//加入你要加的东西
end ;