if (SUCCEEDED(pBrowser->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&pHTMLDocument)))
{
if(pHTMLDocument!= NULL )
{
int Bounds[2] = {0,0};
Variant v = VarArrayCreate(Bounds, 1, varVariant);
AnsiString footer;
v.PutElement(html, 0); // this is your html string
// v.PutElement(" dhfds ", 1); // this is your html string
// v.PutElement(GetStringFromResourceID(IDS_STRING_0135) + Now(), 1); // this is your html string
pHTMLDocument->clear();
// wchar_t *wstr;
// pHTMLDocument->get_title(&wstr);
// WideString Tittle = WideString(wstr);
pHTMLDocument->write(PSafeArray(v.VArray));
// v.VArray