uses MSHTML; procedure TForm1.Button1Click (Sender: TObject); begin Webbrowser1.Navigate ( 'www.baidu.com'); // end start page of a site; procedure TForm1.Button2Click (Sender: TObject); var Range: IHTMLTxtRange Begin Range: = (WebBrowser1.document As Ihtmldocument2) .Body as htmlbodyElement) .CreateTextRange; Range.collapse (false); Range.Pastehtml ('
Hello, I am Lao Li, 9CBS ID LAOLI '); // Add what you want to add;
