Firemonkey PostMessage Windows

[LokutusvB]

Hallo,

ich beschäftige mich zur Zeit mit der Umstellung einer VCL-Anwendung auf Firemonkey. In dieser Anwendung wird der Windows-Nachrichtendienst genutzt.

Code:

const
  WM_AUTORUN  = WM_USER + 1007;
...
type
  ...
  procedure WMAutoRun(var Msg: TMessage); message WM_AUTORUN;
  ...
  private
    procedure StartUp;
  ...
  end; 
...
procedure TF_F1.FormCreate(Sender: TObject);
begin
  PostMessage(Handle, WM_AUTORUN, 0, 0);
end;

procedure TF_F1.WMAutoRun(var Msg: TMessage);
begin
  Application.ProcessMessages;
  StartUp;
end;

procedure TF_F1.StartUp;
begin
  // Programmablauf
end;
...

Wie ich schon festgestellt habe, geht das beim Firemonkey so nicht mehr. Eine Suche im Netz hat mich leider auch nicht weiter gebracht. Ich habe Beispiele bzw. Fragen anderer Nutzer gefunden, wie
http://stackoverflow.com/questions/2...ssage-handling
http://stackoverflow.com/questions/2...on-in-the-tray
komme damit aber nicht wirklich weiter.

Wie bekomme ich das beim Firemonkey gelöst, daß beim Programmstart die Nachricht versendet und StartUp ausgeführt wird?