I need to create a splashscreen while my FMX program is launching.

The following code from VCL does not works anymore:

```
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
Application.Initialize;
SplashScreen.Update; //No such function in FMX
Application.Run;

```

Problem is that in FMX forms are not created/repainted until `Application.Run` executed, as they use some FMX magic to repaint. Using VCL splashscreen is not an option since I need OSX support.

How do I create a splashscreen in Delphi XE2 FireMonkey project?