Ribbon控件 合并标题后无法变色

delphi Ribbon控件 SupportNonClientDrawing:=True合并标题栏后，标题栏颜色恢复成Window样式，不能根据Ribbon变换颜色

问题相关代码

运行结果及报错内容

我的解答思路和尝试过的方法

现在无头绪

我想要达到的结果