Hallo Minz,
Du musst die Panelbreite der Textbreite anpassen.
Ich verwende dafür folgende procedure
Delphi-Quellcode:
procedure WriteToStatusBar(SB : TStatusbar; const T : String; Index : Integer);
var
Panel :TStatusPanel;
begin
Panel:=SB.Panels[Index];
Panel.Width:=SB.Canvas.TextWidth(T)+10;
Panel.Text:=T;
end;