FMX样式问题与模态形式

Question

我正在使用Delphi XE7 Update 1开发适用于iOS和Android的多设备应用程序。 我有一个基本表单，我的应用程序中的所有表单都是从该表单驱动的：

object frmBaseForm: TfrmBaseForm
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 480
  ClientWidth = 640
  StyleBook = sbStyle
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  DesignerMasterStyle = 0
  object sbStyle: TStyleBook
    Left = 8
    Top = 8
    ResourcesBin = {
      464D585F5354594C4520322E3501060B4465736372697074696F6E039F00060E....
  end
end

它有TStyleBook个自定义样式，代码如下：

procedure TfrmBaseForm.DoClose(var CloseAction: TCloseAction);
begin
  inherited;

  if ModalResult <> mrNone then
    CloseAction := TCloseAction.caFree;
end;

当我运行我的应用程序时，一切都按预期工作。但是，只要显示和关闭模态表单（例如执行上面的代码），我所有表单的样式都会被破坏（表单和控件背景颜色变为黑色，......）

有什么想法吗？