void __fastcall TForm1::Button1Click(TObject *Sender)
{
   CppWebBrowser1->Navigate(WideString("www.hinet.net"));
}    void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
   IHTMLDocument2 *HTMLDocument = NULL;
   if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,
      (LPVOID*)&HTMLDocument)))
   {
     IHTMLElement *pElement = NULL;
     HTMLDocument->get_body(&pElement);
     if (pElement)
     {
       WideString str;
       pElement->get_innerText(&str);
       Memo1->Text = AnsiString(str);
       pElement->Release();
     }
     HTMLDocument->Release();
   }
}