Delphi - Cambiare Colore Testo StatusBar

Vorrei cambiare colore al testo che compare in questa statusbar come si fa?
StatusBar.Panels[2].Text:='Email Inviata';
ho provato con il metodo come si fa con tlabel ma non va.

forum.html.it/forum/…

le tue risposte sono gradite ma ho notato che non sempre nei forum c'è qualcuno che mi risponde sto provando a mettere in pratica il codice che mi hai suggerito.

Ho fatto in questo modo mi testereste il codice? A me non da risultati cioè non mi colora la StatusBar

procedure TForm1.StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar.Canvas do
begin
case Panel.Index of
     0: //Primo Pannello
begin
     Brush.Color := clBtnFace;
     Font.Color := clGreen;
     Font.Style := [fsItalic];
end;
     1: //Secondo Pannello
begin
     Brush.Color := clBtnFace;
     Font.Color := clGreen;
     Font.Style := [fsItalic];
end;
     2: //Terzo Pannello
begin
     Brush.Color := clYellow;
     Font.Color := clRed;
end;
     3: //second panel
begin
     Brush.Color := clBtnFace;
     Font.Color := clNavy;
     Font.Style := [fsItalic];
end;
end;
end;
end;