невидим label

Не знам как успях да го постигна това:
един бутон си прави нещо и реших да направя форма, която да показва какво се изпълнява в момента

ProgrF.Show;
ProgrF.StatLAbel.Caption := 'sega pravya tova';
ProgrF.ProgressBar:=0;
while ...
ProgrF.ProgressBar:=ProgrF.ProgressBar+i; ..
end;
ProgrF.ProgressBar:=0;
ProgrF.StatLAbel.Caption := 'sega pravya onova';
while ...
ProgrF.ProgressBar:=ProgrF.ProgressBar+m; ..
end;
ProgrF.StatLAbel.Caption := 'uspeshno zavarshvane';

та показва се формата ,бар-а се пълни, но Statlabel не се вижда
(добавих още 2 етикета, до прогресс бара "0" и "100 %" - те също не се виждат) появява се едва 'uspeshno zavarshvane'
??!?

---
(на)здраве и късмет

Използвай property <panels> на статусбар-а:

statusbar1.Panels.Add();
statusbar1.Panels.Items[0].Text:='Alabala';

След ProgrF.StatLAbel.Caption := ......
Използвай Application.ProcessMessages

или
След ProgrF.StatLAbel.Caption := ......
Използвай ProgrF.StatLAbel.Refresh;