Сделал вот так:
Код:
StatusBar1.Panels[0].Width := Canvas.TextWidth(StatusBar1.Panels[0].Text) + 8;
StatusBar1.Panels[1].Width := StatusBar1.Width - StatusBar1.Panels[0].Width - 90;
StatusBar1.Panels[2].Width := 90;
Но при больших значениях в "0" ячейке она перекрывает всё.
И вообще ведет себя странно...