在FMX中使用任务松散透明

Question

我的Android应用程序有点大，当我将它发送到手机时，我需要等待3-5秒。

所以我决定使用TTask。 在我的FormCreate事件中，我使用TTask将我的数据库加载到个人类。

加载芬兰语时，我在TListBoxItem上加载项目。

我遇到了问题，我的TImage的所有背景都是黑色的，对于文本和其他对象都是一样的。

写有“+2 Voir tout”的黑色矩形的不透明度为0.5，然后它全部为黑色。

TTask.Run(procedure
 begin
  Gestionnaire := TGestionnaire.Create(Cnx);

  TThread.Queue(nil,
                procedure
                begin
                   ChargerHomePage;
                   TabControl.ActiveTab := tabHome;
                   aniindicator1.Enabled := false;
                end);
 end);