а как работаешь со StatusBar? у него по умолчанию SimplePanel == False и если присваивать SimpleText текст, то он не будет отображаться. надо сделать SimplePanel = True:
Код:
StatusBar1.SimplePanel:=True;
StatusBar1.SimpleText:=IntToStr(Tag);
либо использовать Panels.