Hola,
Tal vez pueda ayudarte en algo echar un vistazo al componente
EmbeddedWB, el cual puedes conseguir gratuitamente en
IE & Delphi, junto con otro buen número de componentes relacionados.
Puedes ver en su código fuente (a tu disposición) cómo dicho componente implementa un procedimiento de nombre "ViewSource" que consigue justo lo que precisas.