delphi关于label控件的问题

问题遇到的现象和发生背景

在学delphi，怎么让delphi的label控件动态的显示数字，实时的去显示每一次循环结果，比如下面代码，在程序运行时让数字动起来，而不是运行结束直接从0变成最终结果。

问题相关代码，请勿粘贴截图

Label6.Caption := (IntToStr(TCountThread(Sender).FiSumBit))；
FiSumBit:= FiSumBit + CountBits(str[ia])：

运行结果及报错内容

我的解答思路和尝试过的方法

我想要达到的结果

加一个timer控件
方法就是你的代码
延时时间把握好
ok了

这年头还有人在用delphi吗，比较小众了
你现在的问题是主要运算都在主线程里，卡死了UI，所以程序运行时窗体就没响应了，等运行结束才会刷新
你可以用后台线程执行你的代码，然后就有两种思路
1.使用委托，将结果发送给UI线程展示
2.线程先把结果保存在一个公共变量，窗体里拖个timer定时从变量里取值展示