delphi – Firemonkey：将资源从资源添加到内存并使用它

这是我使用的代码,它在VCL中工作：

procedure TForm1.Button1Click(Sender: TObject);
var
   ResStream  : tResourceStream;
   FontsCount : DWORD;
begin
   ResStream  := tResourceStream.Create(hInstance,'MyResourceName',RT_RCDATA);
   winapi.windows.AddFontMemResourceEx(ResStream.Memory,ResStream.Size,nil,@FontsCount);
   ResStream.Free();
   button1.Font.name := 'MySavedFontNameInResource';
end;

在Firemonkey中我刚将button1.Font.name更改为button1.Font.family但不幸的是字体没有改变.所以我认为这段代码与firemonkey不兼容.

所以在Firemonkey中,如何从资源加载字体并将其临时保存到内存并直接从那里使用？

更新：

我看到这些页面：Install font in firemonkey,How to use external fonts?

根据Mr Ed的回答,似乎FMX中没有解决这个问题的方法.但也许我们可以加载字体,如果我们在运行应用程序之前安装它.我几乎尝试了一切,但我仍然无法加载字体.