中地址0063E1D9处的Delphi vcl setstyle错误访问冲突问题 我正在编写Delphi10.1。错误TrySetStyle

错误：

---

项目->选项->应用程序 启用已选中的运行时主题 启用选中的高DPI 项目->选项->应用程序->外观

主题检查

---

没有帮助

TStyleManager.TrySetStyle（'Luna'，false）
这些样式是否包含在您的应用程序中？这是否发生在一个只有该代码的空应用程序中？无法复制，在Windows7上用Delphi10.1测试。跟踪代码，找到触发错误的确切行。
Uses vcl.themes;

procedure TForm1.IcebergClassico1Click(Sender: TObject);
begin
TStyleManager.TrySetStyle('Iceberg Classico');
end;

procedure TForm1.LavenderClassico1Click(Sender: TObject);
begin
TStyleManager.TrySetStyle('Lavender Classico');
end;

procedure TForm1.Light1Click(Sender: TObject);
begin
TStyleManager.TrySetStyle('Light');
end;

procedure TForm1.Luna1Click(Sender: TObject);
begin
TStyleManager.TrySetStyle('Luna');
end;