关于如何正确结束一个正在运行的程序问题>>>>

                            
procedure   TForm1.Button1Click(Sender:   TObject);   
  var  
      times:integer;  
  begin  
      times:=0;  
      while   true   do  
      begin  
          Self.Caption:='Test   Terminate     '+IntToStr(Times);  
          inc(times);  
          Application.ProcessMessages;  
      end;  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
  //     Application.Terminate;  
      Application.Free;  
  end;  
   
   
  上面程序,如果用Application.Terminate;虽然因为有Application.ProcessMessages;  
  会执行到Application.Terminate,后程序还是在运行并没有结束。  
  如果是用Application.Free程序界面会消失,好像是结束了,但内存中仍有那个EXE程序。  
   
  请问如何正确结束上面程序呢?????  
 

查看回复