Delphi Firemonkey добавить собственный шрифт

Question

Мне нужно добавить собственный шрифт для моих ярлыков в моем приложении Firemonkey для Android

, поэтому добавил новый шрифт в разделе развертывания

и изменил FMX.FontGlyphs.Android.pas на следующее:

FontFile := TPath.GetDocumentsPath + PathDelim + CurrentSettings.Family + '.ttf';
if FileExists(FontFile) then
  Typeface := TJTypeface.JavaClass.createFromFile(StringToJString(FontFile))
else
  Typeface := TJTypeface.JavaClass.Create(FamilyName, TypefaceFlag);

затем я добавил шрифт на мою метку

Label1.StyledSettings :=  Label1.StyledSettings - [TStyledSetting.Family]
Label1.TextSettings.Font.Family := 'IRANSansMobile';

файл шрифта развернут и существует на целевом мобильном телефоне, но шрифты метки не изменились вообще!

что не так с моим кодом?!

uodate

для проверки, существует ли шрифт, я добавил кнопку в форму, чтобы запустить это, и он говорит мне exists

procedure TForm1.Button1Click(Sender: TObject);
var  FontFile : string;
begin
FontFile := TPath.Combine( TPath.GetDocumentsPath , 'IRANSansMobile.ttf');
 if FileExists(FontFile) then
   showmessage('exists')
 else
   showmessage('not exists'); 
end;

дерево проекта: