288______________________________________________ 4

    UMain    ,   -
   .      
'         .

  ,    ,   -
 .

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

8.     .   FPSW    -
     UPSW.      -
,        . -
   BorderStyle  bsDialog,  Position 
poScreenCenter.   Caption      En-
ter.      .

9.       Edit,   
  .    Text.    -
KeyDown    :

if (Key == VK_RETURN) Closet);

     (    
 4.3.2.2).    Enter,  ,   -
  ,   .    
  OnClose.   , ,      
    Enter,      -
 , ,  .       -
,     ,    
 . ,       -
 ,     .  -
  :   .    -
     (   ) .

10.    OnClose  FPSW  

if (Editl->Text == "I") ModalResult = 6;

      .    
       ".  
 ,   ModalResult   
   (        ,  0  2).
  ,    ModalResult = 2 (mrCancel),
       .  
  ,       
 ModalResult   .    
 ModalResult   6,     2.

      .   
   UMain ,     
  .      -
.