可否在你的事件中改变一个变量的值,循环中,些变量作为循环条件,如
//退出循环事件
begin
...
 IsGoon := False;
...
end;//循环模块
begin
...
  while IsGoon and ...  do
  begin
   do something...  end;
...
end;