>>578 = >575
while なんとか do
begin
　処理
　Application.ProcessMessages;
　while かんとか do
　begin
　　重い処理(*1)
　end;
　処理
end;
もしこんな構造になっていましたら(*1)の中にApplication.ProcessMessageを移動．