可以加个滚动条显示处理进度,记得每次处理后加上application.ProcessMessages for i := 0 to 100 do begin application.ProcessMessages end;