работа с MS Woord через OLE

//--------------------------------
// Задание характеристик шрифта
//--------------------------------
void __fastcall TMSWord::SetFontFormat(TFont *f,WinwordColor color)
{
   msWord.Exec(Procedure("FormatFont") <<
               NamedParm("Points",f->Size) <<
               NamedParm("Font",f->Name.c_str()) <<
               NamedParm("Color",color));
   if(f->Style.Contains(fsBold))
      msWord.Exec(Procedure("Bold") << 1);
   if(f->Style.Contains(fsItalic))
      msWord.Exec(Procedure("Italic") << 1);
   if(f->Style.Contains(fsUnderline))
      msWord.Exec(Procedure("Underline") << 1);
   if(f->Style.Contains(fsStrikeOut))
      msWord.Exec(Procedure("Strikethrough") << 1);
}
//------------------------------------------------------
void __fastcall TMSWord::SetFontFormat(char *fontName,int
fontSize,TFontStyles style,WinwordColor fontColor)
{
   TFont *f = new TFont();
   f->Name = fontName;
   f->Size = fontSize;
   f->Style = style;
   SetFontFormat(f,fontColor);
   delete f;
}
//------------------------------------------------------

Word.Create(NameSrc);
Word.GotoBookmark(NameBookMark);
....
Word.SetFontFormat("Wingdings", 8, TFontStyles()<< fsBold <<  fsUnderline , mswColAuto);