Hej,
jag har inte testat detta själv, men jag hittade det på en fransk sida via Google. Om jag tolkar den rätt borde man kunna skriva så här (fast det var förstås länge sen man läste franska... :OO ):
for i := 0 to WebBrowser1.OleObject.Document.frames.length - 1 do
Memo1.Text := WebBrowser1.OleObject.Document.frames.item(i).Document.innerHTML
Nu vill du väl förstås inte skriva över Memo-texten för varje varv i en loop, men du förstår principen!? :)