TTask bei FMX startet nicht (Delphi 10.2)

[nytaiceman]

Hallo,

Ich arbeite mit Delphi 10.2. Wenn ich TTasks verwenden möchte, habe ich ein ungleiches Verhalten zwischen VCL und FMX basierter Kompilierung.

Der Code der ausgeführt wird, ist bei beiden Projekten derselbe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
// uses System.Threading
var
  aTask: ITask;

begin
 ShowMessage ('Before TTask');

 aTask := TTask.Create (procedure ()
   begin
     sleep (5000);
     ShowMessage ('During TTask');
   end);

 aTask.Start;

 ShowMessage ('After TTask');
end;

Aber nur in der reinen VCL Kompilierung startet der TTask.
Hat jemand eine Idee?