540______________________________________________ 9

   ,    , 
      , 7,
   ,   .    -
         -
      Post.     Modifi-
ed      ChangePhoto, -
  .

   Post          -
,   CanPost.        -
  ?   ,     -
        DBMe-
mol   Form2     
      TDBImage   Form2  
      .  
         -
    .     BeforePost -
 Table2  

if (! CanPost)
(

DataSet->Cancel() ;

Abort() ;

}

   ,   CanPost = false. ..  -
      .      -
   Post  CanPost   true    -
   .

    ,   
      ,   .  -
  OnClick     Table2->Insert(), -
         . 
          -
     Pers.

  ,      ,  -
  :    2     Num. 
          -
   .          Table2,
       .      
   Table2,      Post   -
  ,      .      , 
   .      -
     .

   OnClick    

if (Application->MessageBox("   ?",
"  ",
MB_YESNO + MB_ICONEXCLAMATION) == IDYES)
Table2->Delete() ;

        
 .

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