Cambiar el color de un panel de TStatusBar

[fide_uci]

Muchisimas gracias Caro. La verdad es que el problema me ha quedado totalmente solucionado, y justo de la forma en que me hacía falta. De nuevo gracias.

Ahora una cosa. Al inicio estaba intentando poner el Style de los panels a psOwnerDraw como tu me dijiste, pero lo estaba intentando hacer en el evento "StatusBarDrawPanel", y entonces no me queria trabajar. En cambio cuando modifique la propiedad en el OnCreate del Form, todo corrio de maravillas.

Lo que hice fue algo asi!

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  X: Integer;
begin

  for X := 0 to StatusBar1.Panels.Count -1 do
    StatusBar1.Panels.Items[X].Style := psOwnerDraw;

end;