[ecfisa]

Hola Snaked.

...
#include <ActiveX.hpp>
...

void gethtmlCode(TCppWebBrowser* wb, TStrings* lines)
{
  IPersistStreamInit* psi;

  if (!wb->Document) return;
  if (wb->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi) == S_OK)
  {
    TStringStream *ss = new TStringStream("");
    TStreamAdapter *sa = new TStreamAdapter(ss, soReference);

    try
    {
      if (SUCCEEDED(psi->Save(*sa, true)))
        lines->Add(ss->DataString);
    }
    __finally
    {
      delete ss;
      delete sa;
    }
  }
}

Ejemplo de uso:

void __fastcall TForm1::Button1Click(TObject* Sender)
{
  gethtmlCode(CppWebBrowser1, Memo1->Lines);
}

Saludos