f    ______________289

11.   UMain, ,   ,     UPSW,   -
,        OnShow     FLog->Show-
|     Modal()  :

if (FPSW->ShowModal() != 6)
(
ShowMessage("  ");

         Closed;

I       )
'       else

{

ShowMessage("  '" + FPSW->EPSW->Text + "'");

FPSW->Free() ;

^]

     ModalResult   -
.      FPSW->ShowModal(). 
   6,     .   , 
    ,   Close.   
   .  ShowMessage   
,  ,         
 ,     .   -
_            

  .      -

   Free.   ,   .   
|1        ,    -
      .     
 ,          -
   .

     .   ,
   ,   .

         -
.     ,     -

  dalResult,   ShowModal.        -
   .    OnClose  FPSW    -
 :

if (Editl->Text != "I") Application->Terminate() ;

              -
 Application->Terminate().        -
     FPSW,      -

|      ShowModal,     .
      :

FPSW->ShowModal() ;
     ShowMessage("  '"+FPSW->EPSW->Text+"'");

     FPSW->Free() ;

f            -
S ,        .

4.7.5      
|       ( MDI)

       MDI    Word.  
 MDI   ()      (
"'  ).      -