402 !

if(Memol->Font->Style.Contains(fsBold))

W.Exec(Procedure("Bold")) ;

if(Memol->Font->Stle.Contains(fsItalic))

W.Exec(Procedure("Italic")) ;

W.Exec(Procedure("Insert")  (S + "\n"));

}

//-

void __fastcall TFormI::ButtonlClick(TObject *Sender)
(
AnsiString s;

W = CreateOleObject("Word.Basic");

W.Exec(Procedure("AppShow"));

W.Exec(Procedure("FileNew")  "Normal");

if(RGSex->Item!ndex == 0)

Ins(" " + EName->Text + "!");

else Ins(" " + EName->Text + "!");

for (int i = 0; i <= Memol->Lines->Count; i++)
Ins(Memol->Lines->Strings[i]);

if (RGOp->ItemIndex == 0)

s = "    ?";

else s = "  ?";

if (MessageDIg(s, mtConfirmation, TMsgDIgButtons()  mbYes

 mbNo, 0) == mrYes)
if (RGOp->ItemIndex == 0)
{
if(SaveDialogl->Execute())

W.Exec(Procedure("FileSaveAs")  SaveDialogl->FileName),
}
else W.Exec(Procedure("File Print")) ;

W.Exec (Procedure("FileClose")  2) ;

}

//-

void   fastcall TFormI::BFontClick(TObject *Sender)
{

if(FontDialogl->Execute())
Memol->Font->Assign(FontDialogl->Font);

}

  .     W 
Variant,       .  
 ButtonlClick      .  
 

W = CreateOleObject("Word.Basic");

   ,  Microsoft Word.   -
    Word,         .
    Exec,   
  OLE.       Procedure(S), 
S     WordBasic.     
,    . ,   
Ins,     Word,    :

W.Exec(Procedure("Font")  Memol->Font->Name  Memol->Font->Size);

    WordBasic Font, 
,      :     .

   .  
 AppShow,    Word ,   -