Mudar a cor de um texto dentro do panel do StatusBar

procedure TFrmPrincipal.SttsBrPrincipalDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var
   Flags : Cardinal;
begin
    with SttsBrPrincipal.Canvas do
    begin
        Font.Style := [FsBold];
        if Panel.Index = 1 then
        begin
            if not InternetGetConnectedState(@Flags, 0) then
            begin
                Font.Color := clRed;
                SttsBrPrincipal.Panels[1].Text := (' Computador não está conectado à internet !');
            end
            else
            begin
                Font.Color := clGreen;
                SttsBrPrincipal.Panels[1].Text := (' Computador conectado à internet !');
            end;
        end;
    end;
end;