Breite der Panels in der StatusBar

[Shadowbug]

Ich berechne die breite der StatusBar - panels mit

Delphi-Quellcode:

for P := 0 to StatusBar.Panels.Count - 1 do
    begin
   StatusBar.Panels.Items[P].Width := 
   StatusBar.Canvas.TextWidth(StatusBar.Panels.Items[P].Text);
    end;

aber sie werden zu klein.
Das wird noch schlimmer wenn man die Schriften im Windows vergrößert