function GetHtml(doc: IHtmlDocument2): string;
 var
   iDisp: IDispatch;
   iCollection: IHTMLElementCollection;
 begin
   result := '';
   iCollection := doc.all.Tags('HTML') as IHTMLElementCollection;
   iDisp := iCollection.item(0, 0);
   result := (iDisp as IHTMLElement).outerHTML;
 end;