alguien puede convertir esta funcion a C++ Builder ?

[Snaked]

hola de nuevo ecfisa

aqui intentando encajar el codigo que me has dado pero me da un par de errores que no encuentro como solucionarlos de momento

si incluyo el #include <Winapi.ActiveX.hpp> me da 229 errores.....
si no lo incluyo solo da estos

dice el linker estos 3 errores:

"use of undeclared identifier 'IPersistStreamInit' "
"use of undeclared identifier 'psi' "
"no member named 'Document' in 'Fmx::WebBrowser::TWebBrowser' "

y la funcion esta asi

void gethtmlCode(TWebBrowser* 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;
	}
  }
}

no entiendo como algo tan simple como guardar un codigo fuente HTML de una pagina web en un Memo se puede volver tan lioso

ecfisa: la cuestion es que NECESITO esta funcion como el comer, porque es clave en un punto del programa donde cargo en el TWebBrowser una pagina web y necesito acceder al texto HTML pasandolo al Memo y la cuestion es que estoy probando codigo en RAD STUDIO 10 Seattle y en C++ Builder 6 si pude hacerlo pero este codigo no sirve en RS10 entre otras cosas porque el citado "Document" del TWebBrowser ya no esta donde estaba en builder 6

Estoy buscando por toda la Red y no encuentro nada que me aclare esto del famoso "Document"