Hola fide_uci, para cambiar los colores de los panels de tu StatusBar tienes que utilizar el evento OnDrawPanel y colocar la propiedad Style de tus panels en psOwnerDraw, este codigo tendría que estar en ese evento:
Pinta el primer panel de amarillo
Código Delphi
[-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel=StatusBar1.Panels[0] then
Statusbar.Canvas.Brush.Color:= clYellow
else
Statusbar.Canvas.Brush.Color:= clRed;
Statusbar.Canvas.FillRect(Rect);
Statusbar.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Panel.Text);
end;
Saluditos