Botschaft verschicken unter Firemonkdey

[Hobbycoder]

Unter VCL nutze ich öfter postMessage um zum Beispiel nach Threadende irgendeine Aktion anzustoßen.

Delphi-Quellcode:

const
  WM_TUWAS = WM_USER + 1000;

type
  TMyForm=class(TForm)
  .
  .
  private
    procedure TuWas(var msg: TMessage); message WM_TUWAS;
    procedure ThreadFertig(Sender: TObject); 
  end;

procedure TMyForm.ThreadFertig(Sender: TObject);
begin
  postmessage(self.handle, WM_TUWAS, 0, 0);
end

Wie macht man das unter Firemonkey? Vor allem unter Berücksichtigung, dass die FMX-App später auch auf Android oder IOS laufen soll.