    ______________401

          .
  ,         -
 .      ,   
 OLE,      ,   -
,    .    ,  -
 SaveAsDocument:

01eContainerl->SaveAsDocument(FName) ;

 CreateObjectFromFile, CreateLinkToFile  SaveAsDocument -
     , ,
   .

6.4.3  OLE

     , 
    .  OLE 
   ( OLE),   
  .      CreateOleOb-
ject.  ,       Microsoft Word.

    ,     
,   .      -
,   - ,    
..          ,
    ,        -
           -
   .

 ,      Memo  
,   Edit    ,  ,
  ,  ,  
:     ,  FontDialog   , -
 SaveDialog          
        .  -
     . 6.7.

. 6.7

,  
OLE

    :

Variant W;

void _fastcall TFormI::Ins(AnsiString S)

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