Delphi 循环中更新进度条进度

循环中添加一行代码

application.ProcessMessages;