1. 循环中判断是否要退出了
2. onclose中添加设置退出标志
3. 循环中application.processmessages
比如：
onclose中：
quitform:=1;
循环中：
while (quitform<>1) and loopcondition do
begin
//do your loop
...
application.processmessages;
//如果想要比较好的响应，可以在processmessages后加一个sleep(10);
//但循环的效率会下降很多
end;
其他循环也是同样道理的
