procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
S: string;
begin
if not Assigned(WebBrowser1.Document) then Exit;
memo1.Text:= IHtmlDocument2(WebBrowser1.Document).body.outerText ;
memo2.Text:= IHtmlDocument2(WebBrowser1.Document).body.outerHTML ;
end;