Установить размер шрифта для панели TStatusBar

With StatusBar1.Panels[1] do
begin
  Text := Edit1.Text;
  Canvas.Font.Size := StatusBar1.Font.Size;
  Width := Canvas.TextWidth(Text) + 10;
end;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0