CppWebBrowser заполнение поля..., как заполнить TEXTAREA?

IHTMLDocument2 *pHTMLDocument = NULL;
TCppWebBrowser *newBrowser;

newBrowser = CppWebBrowser1;

if (SUCCEEDED(newBrowser->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&pHTMLDocument)))
{
  if(pHTMLDocument!= NULL )
   {

    IHTMLElementCollection *pAll = NULL;

  if ( SUCCEEDED ( pHTMLDocument -> get_all ( &pAll ) ) && pAll )
    {
     TVariant vIndex = 0;
     IDispatch *pDisp1 = NULL;

  TVariant vName1 = "text"; // из хтмл кода <TEXTAREA name=text ....

  WideString iniString = "Это основной текст"; // то что пытаюсь поместить в TEXTAREA

  if ( SUCCEEDED ( pAll -> item ( vName1, vIndex, &pDisp1 ) ) && pDisp1 )
    {
    IHTMLInputElement *pInput = NULL;
  if ( SUCCEEDED ( pDisp1 -> QueryInterface ( IID_IHTMLInputElement, ( LPVOID* )&pInput ) ) && pInput )
    {
     pInput -> put_value ( iniString );
     pInput -> Release ();
     }
     pDisp1 -> Release ();
      }
}
pAll -> Release ();
}
}