Отобразить код из Memo в WebBrowser-е

//---------------------------------------------------------------------------
bool SetWebBrowserHtmlContent(TWebBrowser *AWebBrowser, wchar_t * lpText) {
    bool bResult = false;
 
    if (!AWebBrowser)
        return bResult;
 
    AWebBrowser->Navigate(L"about:blank");
    while (AWebBrowser->ReadyState < ::READYSTATE_INTERACTIVE) {
        Application->ProcessMessages();
    }
 
    if (!lpText)
        return bResult;
 
    if (!AWebBrowser->Document)
        return bResult;
 
    IStream *pStream;
    IPersistStreamInit *psi;
    int nLen = wcslen(lpText);
 
    HGLOBAL hHTMLText = ::GlobalAlloc(GPTR, nLen*sizeof(wchar_t) + 1);
    if (NULL == hHTMLText)
        return bResult;
 
    ::CopyMemory(hHTMLText, lpText, nLen*sizeof(wchar_t));
    HRESULT hr = ::CreateStreamOnHGlobal(hHTMLText, true, &pStream);
    if (SUCCEEDED(hr)) {
        hr = AWebBrowser->Document->QueryInterface(IID_IPersistStreamInit, (void**) & psi);
        if (SUCCEEDED(hr)) {
            hr = psi->Load(pStream);
 
            bResult = SUCCEEDED(hr);
 
            psi->Release();
        }
        pStream->Release();
    }
    ::GlobalFree(hHTMLText);
 
    return bResult;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender) {
    bool bSuccess = SetWebBrowserHtmlContent(WebBrowser1, Memo1->Lines->Text.c_str());
    ShowMessage(UnicodeString().sprintf(L"Operation finished with result <%s>", bSuccess ? L"SUCCESS" : L"ERROR"));
}
//---------------------------------------------------------------------------