>>258
ステータスバーの方は、「計算中...」としか
表示しないなら、
ループに入る前に表示させて、「StatusBar1.Refresh」。
後はループ外で「終了」と表示させる。

ラベルの方は、ループの中に「application.ProcessMessages;」を
入れる。

こんなとこで良いのでは？