Delphi, Como mudar a cor de um StatusBar

Vá até seu projeto e siga os passos abaixo:
-> Insira o statusbar 
-> duplo clique no statusbar 
-> insira quantos panels for necessário (no minimo 1) 
-> escolha um panel e coloque style = psOwnerDraw 
-> Feche o editor de panels e selecione a status bar 
-> no Object inspector, na aba events selecione o evento OnDrawPanel 
-> Coloque o código abaixo: 

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); begin if Panel.Index = 0 then begin StatusBar.Canvas.Brush.Color := clLime; StatusBar.Canvas.FillRect(Rect); end end;