怎样退出这个WHILE循环。

Question

有一个按钮1，点击后进入循环
     WHILE AA DO
      BEGIN
       。      END其中AA为BOOLEAN变量，且前面已有值TRUE，
现想达到：点击另一个按钮，给AA赋值FALSE，退出上面的循环，但不行，因为点第一个按钮后，程序好象已进如死循环，退不出了，请问怎样解决。

Answer 1

我觉得首先该检讨你的算法。
在这个循环里面加上
Application.ProcessMessage;
就能达到你的目的了。

Answer 2

在循环中加一句:
while aa do
begin
.....Application.ProcessMessages; //让程序在循环中响应别的消息事件。end;

Answer 3

Application.ProcessMessages; //把控制权交给Windows来相应别的消息
Exit;  退出While循环