[Страдалецъ]

А вот резиновости стандартный StatusBar не имеет, придется делать расчет границ производить самому, примерно так:

Код:

 for i := 0 to StatusBa1.Panels.Count - 1
 do StatusBa1.Panels[i].Width := Canvas.TextWidth(StatusBa1.Panels[i].Text) + 8;