Code:

var  
  Document : IHTMLDocument2;
  s: string;
  i: integer; 
begin
   // Varijanta jedan za frame-ove
   for i := 0 to (WebBrowser1.OleObject.Document.frames.Length - 1) do
     s:= s + slineBreak + WebBrowser1.OleObject.Document.frames.item(i).document.Body.outerHTML;

  // Varijanta dva
   Document := WebBrowser1.Document as IHtmlDocument2;
   s:= Document.body.outerHTML;