Class TPopupBox not found при загрузке стиля

[x11 83]

Код применения стиля:

procedure TfmOptions.ChangeStyles;
 var
  aTos: String;
  aStyle: TFMXObject;

 const
   ToStr: Array[TOSVersion.TPlatform] of string = ('Windows', 'MacOS', 'iOS', 'Android', 'WinRT', 'Linux');
begin
   aStyle := nil;
   lbActiveStyle.Text := 'применение стиля...';
   Application.ProcessMessages;

   //если выбираем из ресурсов
   if comboStyles.ItemIndex > 0 then
   begin
     aTos   := ToStr[TOSVersion.Platform] + comboStyles.Selected.Text;
     aStyle := TStyleStreaming.LoadFromResource(HInstance, aTos, RT_RCDATA);
     aStyle.StyleName := comboStyles.Selected.Text;

     if not assigned(aStyle) then
     begin
       ShowMessage('Стиль не найден: ' + aTos);
       lbActiveStyle.Text := 'Стиль не найден: ' + aTos;

       exit;
     end;
   end;// if comboStyles.ItemIndex > 0 then

   TStyleManager.SetStyle(aStyle);

   lbActiveStyle.Text := 'Готово. ' + TStyleManager.ActiveStyle(self).StyleName;
end;

 

получаю ошибку:

Цитата

Project raised exception class EClassNotFound with message 'Class TPopupBox not found'

на строке

aStyle := TStyleStreaming.LoadFromResource(HInstance, aTos, RT_RCDATA);

Исключение вываливается 2 раза. И только на Андроиде. На Windows такой ошибки не и стили загружаются нормально.

На Андроиде хоть и ошибка, но стили применяются.

Стили хранятся в ресурсах, как вы поняли.

Раньше такой ошибки не было.

[x11 83]

В файлах стилей действительно 2 раза встречается.