Delphi - Font en StatusBar

Buenos días a todos...
Deseo hacerles una consulta, quiero cambiar el color del Font a los textos de un StatusBar pero no logro hacerlo, como lo quiero hacer es de la siguiente manera, mas no se si sea la adecuada ( Uso Delphi 5 )
este es el codigo:

private
{ Private declarations }
StatusBarColor : TColor;


procedure TFormPrincipal.FormShow(Sender: TObject);
begin
StatusBarColor := StatusBar1.Font.Color;
StatusBar1.Font.Color := clBlue;
end;

Corre bien sin marcar error... pero no cambia el color.

De antemano gracias
Martin

Si no me falla la memoria el componente TJvStatusBar de la suite de componentes gratuita JVCL te permite hacer esto..

Gracias, buscaré por ese lado.
Martin

with StatusBar1.Canvas do
Begin
Font.Color:=clBlue;
Font.Style:=[FsBold];
TextOut(Rect.Left+3,Rect.Top+2,
StatusBar1.Panels[0].Text);
End;

Gracias Spider Ramon... acabo de ver tu ayuda, aun no lo he intentado asi, pero igual te agradezco el codigo, lo probare en cuanto me sea posible, ...

Martin