1、打开Delphi7集成开发环境，在默认工程的Form1窗体上放两个Button按钮。
2、双击Button1按钮进入OnClick事件方法，写如下代码：procedure TForm1.Button1Click(S髫潋啜缅ender: TObject);var i:Integer;begin for i:=0 to 100000 do begin Button1.Caption:=IntToStr(i); end;end;
3、F9运行程序，点击Button1，Button1的Caption变化。再点击Button2无响应，因为程序在执行很大循环,只能等待循环结束。
4、这时可以用Appli罕铞泱殳cation.ProcessMessages，使程序可以相应系统消息。在Unit1.pas源代码文件，声明一个全局布尔类型的变量初始值为:True。双击Button1进入OnClick事件方法，修改代码如下：var b:Boolean=True;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var i:Integer;begin for i:=0 to 100000 do begin if b = true then begin Button1.Caption:=IntToStr(i); Application.ProcessMessages; end else Break; end;end;
5、双击Button2进入OnClick事件方法，并写如下代码：procedure TForm1.Button2Click(Sender: TObject);begin b:=False; ShowMessage('点我');end;
6、F9运行程序，点击Button1，Button1的Caption变化。再点击Button2则Button1的Caption停止变化，弹出对话框‘点我’
