procedure GetCurrentDoc(var theList: TStringList);
var
all:IHTMLElementcollection;
doc:IHTMLDocument2;
item:OleVariant;
begin
doc := Browser.document as ihtmldocument2;
all:=doc.all;
item:=all.item(0,varEmpty);
//item.innerhtml是源文件的<title>到</body>
//item.outerhtml是全文
theList.Add( item.innerhtml );
end;
