Firemonkey Application.ProcessMessages

[er_lolo]

Hola, buenas tardes,

Estoy migrando una aplicación firemonkey realizada para Android a la versión 11.

Ya tengo casi todo, pero he visto que no me funcionan los Application.ProccessMessages, que hay por ejemplo para mostrar una pantalla de espera en procesos algo largos.

¿Hay alguna forma de que se muestren estas pantallas? (realmente son layout).

Código Delphi [-]
      ProgressFrame1.Label1.Text := 'Realizando cálculos, por favor espere...';
      ProgressFrame1.Visible := true;
      ProgressFrame1.BringToFront;
      Application.ProcessMessages;
      CalculaDatos;
      ProgressFrame1.Visible := false;

En este caso, finaliza el proceso sin haber mostrado esta pantalla de espera.