Как скормить HTML элементу CppWebBrowser

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TMemoryStream *stm = new TMemoryStream();
  Memo1->Lines->SaveToStream(stm);
 
  IPersistStreamInit *psi;
  stm->Seek(0,0);
 
  //if you pass soOwned instead, the stream will be freed for you
  TStreamAdapter *sa = new TStreamAdapter(stm,soReference);
 
  if (SUCCEEDED(wb->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi)))
    psi->Load(*sa);
 
  delete stm;
}

    TMemoryStream *stm = new TMemoryStream();
    HTML->SaveToStream(stm);
    stm->Seek(0,0);
    IPersistStreamInit *psi;
    TStreamAdapter *sa = new TStreamAdapter(stm, soReference);
    CppWebBrowser1->Navigate(WideString("about:blank"));
    if (SUCCEEDED(CppWebBrowser1->Document->QueryInterface(
                  IID_IPersistStreamInit,(void **)&psi))) {
      psi->Load(*sa);
    }
    delete stm;
    delete HTML;
    psi->Release();
    delete sa; /*In this place I have Access violation at address 003E7274. Read of address 003E7274 */