void __fastcall TForm1::SetHtml( TCppWebBrowser *WebBrowser,AnsiString Html ){IStream *Stream;HGLOBAL hHTMLText;IPersistStreamInit *psi;if( WebBrowser-Document == NULL )return;hHTMLText = GlobalAlloc( GPTR, Html.Length() 1 );if( 0 == hHTMLText ){ShowMessage( GlobalAlloc Error );return;}CopyMemory( hHTMLText, Html.c_str(), Html.Length() );OleCheck( CreateStreamOnHGlobal( hHTMLText, true, Stream ) );try{OleCheck( WebBrowser-Document-QueryInterface( __uuidof(IPersistStreamInit), (void **)psi ) );try{OleCheck( psi-InitNew() );OleCheck( psi-Load(Stream) );}catch( ... ){delete psi;}}catch( ... ){delete Stream;}delete psi;delete Stream;}