Delphi 10.4 FMX App replacing Application.processmessage with Thread

Question

I am trying to run a simple example Delphi 10.4 FMX program that does away with Application.ProcessMessage as suggested here (Android and Application.ProcessMessages) and he