Ansonsten hättest du das Theme für die Statusbar auch abschalten können, dann würden wenigstes die restlichen Controls im aktuellen Themes dargestellt werden.
Delphi-Quellcode:
uses uxTheme;
if uxTheme.IsThemeActive then
uxTheme.SetWindowTheme(Statusbar1.Handle, '', '');