如何在Delphi iOS应用程序中检测暗模式

uses
  iOSapi.UIKit;

function IsDarkMode: Boolean;
var
  userInterfaceStyle: UIUserInterfaceStyle;
begin
  userInterfaceStyle := TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication).keyWindow.traitCollection.userInterfaceStyle;
  Result := userInterfaceStyle = UIUserInterfaceStyleDark;
end;

procedure AdjustAppTheme;
begin
  if IsDarkMode then
  begin
    // 暗模式下的操作
    // 调整应用程序的颜色主题等
  end
  else
  begin
    // 亮模式下的操作
    // 调整应用程序的颜色主题等
  end;
end;