我正在编写Delphi 10.1。错误TrySetStyle

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;

错误： Access violation at adress 0063E1D9 in *.exe. Read of address 00000000.

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

已选中主题

没有帮助TStyleManager.TrySetStyle('Luna',false);