Управление Word-м из С++ Builder 6

        void *uk;
        wchar_t *wh;
        uk=(void*)(&S);
        wh=(wchar_t*)uk;
        LONG l = StgIsStorageFile(wh);

    //выбрать файл
        OpenDialog1->Execute();
        S=OpenDialog1->FileName;
    //Проверка - является ли указанный файл структурированным хранилищем.
        int bufsize; //размер, который будет занимать строка wchar_t
        wchar_t *wh; // это понятно указатель
        str=&S;
        bufsize=str->WideCharBufSize(); //собственно сам метод из //AnsiString для определения размера массива после преобразования
         wh=new wchar_t [bufsize]; //выделение памяти под этот массив
         wh=str->WideChar(wh,bufsize);//само преобразование.

// TWordApplication *MSWord;
// TWordDocument *WordDoc;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  MSWord->set_Visible(true);
  MSWord->Dialogs->Item(wdDialogFileOpen)->Show();
  WordDoc->ConnectTo(MSWord->ActiveDocument);
}

void __fastcall TPassword::SetPas_ButtonClick(TObject *Sender)
{
    if(N)
      {
          int bufsize;
          AnsiString s=Password_Edit->Text;
          bufsize=s.WideCharBufSize();
          wchar_t *wh=new wchar_t [bufsize];
          AnsiString s1(WordDoc->FullName);
          if(Application->MessageBox(s1.c_str(), "подтверждение пароля", MB_YESNO)==IDYES)
            {
                wh=s.WideChar(wh,bufsize);
                WordDoc->set_Password(wh);
                WordDoc->Save();
            }
          else
            {
              delete wh;
              return;
            }
          delete wh;
      }
}

wh=L"";  
WordDoc->set_Password(wh);