status bar

[*Caro*]

Hola, como te dice el amigo Neftali tienes que pintar tu utilizando el Canvas

Código Delphi [-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
 Statusbar.Canvas.Font.Color := clBlack;  
 Statusbar.Canvas.TextOut(Rect.Left+2, Rect.Top, '1980');
 
 StatusBar.Canvas.Refresh;
 
 Statusbar.Canvas.Font.Color := clRed;
 Statusbar.Canvas.TextOut(Rect.Left+Statusbar.Canvas.TextWidth('1980'), Rect.Top, 'Filtro ativo');
end;

y colocar la propiedad Style a psOwnerDraw de tu panel 6.

Saluditos