直接修改exe文件本身的源代码。注意调试时显示的次数始终是0，因为调试时每次都要重写可执行文件。  
  请执行生成的exe文件查看运行结果。  
   
  本程序仅能运行50次。  
   
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs;  
   
  type  
      TForm1   =   class(TForm)  
          procedure   FormCreate(Sender:   TObject);  
          procedure   FormDestroy(Sender:   TObject);  
      private  
          {   Private   decla