Problema con TStatusBar

[MartinS]

Hola J.: Lo que podrias hacer es adecuar el ancho del ultimo panel de acuerdo al tamaño general del StatusBar.

Por ejemplo cuando vos creas los paneles todos tienen un tamaño fijo predeterminado en 50. Si tenes los 4 primeros paneles en 50, por ejemplo hagamos un par de cuentas: 4 X 50 = 200 entonces el tamaño del 5° panel va a ser del tamaño total del StatusBar menos los cuatro primeros.
Podes verificar esto en el evento OnResize del Form

Código Delphi [-]
procedure TForm1.FormResize(Sender: TObject);
begin
    StatusBar1.Panels[4].Width := StatusBar1.Width-200;
    StatusBar1.Panels[4].Text := Edit1.Text;
    ShowMessage('Ancho de panel: '+IntToStr(StatusBar1.Panels[4].Width));
end;

Asi vas a poder utilizar todo el espacio restante del statusBar asignandolo al 5.

Saludos y espero que te sirva eso. Obviamente la limitacion va a estar dada por el tamaño de fuente y la cantidad de texto, no?