doc:IHTMLDocument2;
AText,AEMail:String;
ANewEmail:Boolean;
// PrevPos : integer;
begin
if Assigned(WebBrowser1.DefaultInterface)then
begin
//获得Webbrowser对象中的文档对象
doc:=WebBrowser1.DefaultInterface.Document as IHTMLDocument2;
AText:=Doc.body.outerText;