Cambiar TStatusBar Text color

[bulc]

Uso este código para cambiar el color del texto enviado a un Panel de un TStatusBar pero no funciona. ¿Qué debo cambiar?

Código Delphi [-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
begin
with StatusBar1.Canvas do
  begin
     Font.Color := clRed;
     TextOut(Rect.left, Rect.top, Panel.Text);
  end;
end;

Lo uso para avisar del TDataSource1.Status en Edición o Inserción...

[Casimiro Noteví]

https://www.clubdelphi.com/foros/showthread.php?t=63197