>>913
void __fastcall TForm1::Button2Click(TObject *Sender)
{
　IHTMLDocument2* html = NULL;
　www->Document->QueryInterface(IID_IHTMLDocument2, (void**)&html);

　IHTMLElement* elem;
　html->get_body(&elem);
　wchar_t *text = new wchar_t[10000];
　if (S_OK == elem->get_innerHTML(&text))
　　ShowMessage(AnsiString(text));
　delete [] text;
　elem->Release();
　html->Release();
}