[SPAnt]

Цитата: Сообщение от Examp1e Можно увеличить размер шрифта, которым выводится время на панели?

Да, можно, но придется использовать Canvas.

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
 if Panel = StatusBar.Panels[0] {Номер панели, в котором находится редактируемый текст} then
   begin
     StatusBar.Canvas.Font.Size  := 12;
     StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, 'Это Ваш текст');
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Self.StatusBar1.Panels.Add;
  Form1.StatusBar1.Panels[0].Style := psOwnerDraw;
end;

Лично я думаю, что Вам будет достаточно сделать шрифт, в Вашем поле, жирным!!!

StatusBar.Canvas.Font.Style := [fsBold];

Иначе, форматирование другой информации на панели статуса будет смотреться, как минимум странно.