Fix safe work

DarkModeApi.FMX.pas

@@ -50,17 +50,29 @@ end;
 
 procedure TFormHelper.SetWindowColorMode(IsDark: Boolean);
 begin
-  SetWindowColorModeFor(handle, IsDark);
+  try
+    SetWindowColorModeFor(handle, IsDark);
+  except
+    //
+  end;
 end;
 
 procedure TFormHelper.SetWindowColorModeAsSystem;
 begin
-  SetWindowColorModeAsSystemFor(Handle);
+  try
+    SetWindowColorModeAsSystemFor(Handle);
+  except
+    //
+  end;
 end;
 
 class function TFormHelper.SystemIsDarkMode: Boolean;
 begin
-  Result := IsDarkMode;
+  try
+    Result := IsDarkMode;
+  except
+    Result := False;
+  end;
 end;
 
 {$ELSE}

DarkModeApi.pas

@@ -123,13 +123,17 @@ var
   LRegistry: TRegistry;
 begin
   Result := False;
-  LRegistry := TRegistry.Create;
   try
-    LRegistry.RootKey := HKEY_CURRENT_USER;
+    LRegistry := TRegistry.Create;
-    if LRegistry.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize') then
+    try
-      Result := not LRegistry.ReadBool('AppsUseLightTheme');
+      LRegistry.RootKey := HKEY_CURRENT_USER;
-  finally
+      if LRegistry.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize') then
-    LRegistry.Free;
+        Result := not LRegistry.ReadBool('AppsUseLightTheme');
+    finally
+      LRegistry.Free;
+    end;
+  except
+    Result := False;
   end;
 end;