关于Delphi中的application.ProcessMessages问题(处理事件)

关于Delphi中的application.ProcessMessages问题(处理事件)
━━━━━━━━━━━━━━━━━━━━━━━━━━

很多资料中提到，Delphi中的application.ProcessMessages相当于VB中的Doevents函数(转让进程控制)，可是，在实际应用中，却不是这么回事。例：  
(VB   Code)  
Private   Sub   Command1_Click()    
        Dim   i   As   Integer    
        Dim   j   As   Integer    
        Text1.Text   =   0    
        For   i   =   1   To   10000    
                For   j   =   1   To   10000    
                        DoEvents    
                        Text1.Text   =   Val(Text1.Text)   +   1    
                Next    
          Next  
End   Sub    
   
Private   Sub   Command2_Click()    
          MsgBox   1    
          Unload   Me  
End   Sub  
=================================================================  
(Delphi   Code)  
procedure   TForm1.Button1Click(Sender:   TObject);  
var   i,j:integer;  
begin    
          edit2.Text:='0';    
          for   i:=1   to   10000   do    
                  Begin    
                          for   j:=1   to   10000   do    
                                Begin    
                                        application.ProcessMessages;          
                                        edit1.Text:=inttostr(strtoint(edit2.text)+   1);    
                                end;    
                  end;  
end;  
   
procedure   TForm1.Button2Click(Sender:   TObject);  
begin    
        showmessage('1');    
        Close;  
end;  
=================================  
当点击VB中的Command2按钮时，马上弹出消息框并关掉应用程序(或点窗体关闭键时会即时关掉程序)，可是，点Delphi中的Button2Click时，虽然也弹出消息框，可是应用程序并不关闭，仍在计算，即使点窗体关闭键也要计算完后才关掉。在一些情况下，可能要用到大循环，因此，要给用户提供随时中止程序的功能，那么，在Delphi中，如何才能实现?
━━━━━━━━━━━━━━━━━━━━━━━━━━
procedure   TForm1.Button2Click(Sender:   TObject);  
begin    
        showmessage('1');    
        Application.Terminate;     //改为这个。  
end;
━━━━━━━━━━━━━━━━━━━━━━━━━━
procedure   TForm1.Button1Click(Sender:   TObject);  
var   i,j:integer;  
begin    
          edit2.Text:='0';    
          for   i:=1   to   10000   do    
                  Begin    
                          for   j:=1   to   10000   do    
                                Begin    
                                        application.ProcessMessages;          
                                        if   Application.Terminated   then   Exit;  
                                        edit1.Text:=inttostr(strtoint(edit2.text)+   1);    
                                end;    
                  end;  
end;  
   
procedure   TForm1.Button2Click(Sender:   TObject);  
begin    
        showmessage('1');    
        Application.Terminate;  
end;