40_______________________________________________ 1

   ,     .  
   .

   Application->Run()     
.       , -
    .

    WinMain    try, -
    catch.  ,     -
    ,    -
.     ,    ,
   catch.       -
      Application->ShowException.
        4   4.9.3.

    WinMain   return(O),
     0.

         
     . ,  -
         -
  USEFORM   AppIication->CreateForm, 
.              -
  .

    -     ,   -
 ,    , , , -
      . ,   -
       -  (-
,           ).  -
 -           -
    .   ,   -
   .

, ,  ,      Form2
   ,       -
     Y.        
WinMain  :

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR S, int)

    S,      -
 .    

Application->CreateForm(_classid(TForm2), &Form2) ;

  

if (S[0] == 'Y')

Application->CreateForm( classid(TForm2), &Form2);

      ProJectI   
Projecti Y,   Form2  .     
 .

   ,    ,  -
   .     
   :

if (Application->MessageBox(

"   ?",
"   ",
MB_YESNOCANCEL + MB_ICONQUESTION) == IDYES)
Application->CreateForm(_classid(TForm2), &Form2);