Splash Screen Anzeigedauer

[Normalement]

Ich hatte mir jetzt eine einfache Lösung überlegt, um trotzdem noch "gerade so" die Informationen vom Splash Screen sehen zu können (falls dieser aktiviert ist)

Mein Splash Screen wird in der drp-Datei des Projekts angezeigt und am Ende, nachdem alle Formulare erzeugt wurden, ausgeblendet.
Die Zeit dazwischen wird gemessen.

Meine bescheidene Lösung:

Delphi-Quellcode:

// 1. Start der Zeitmessung
// 2. Verschiedene programmspezifische Prozeduren
// 3. Erzeugen aller Formulare
// 4. Ende der Zeitmessung (Ergebnis in finalTime)

 // Wenn finalTime kleiner 1000 dann
  // warte "1000" - "finalTime" in Millisekunden
  // z.B. Ladezeit ist 250ms => 1000-250 => zeige den Splash Screen weitere 750ms an, damit wir eine 1000ms Anzeigedauer haben

// Anwendung starten

Kann man das so machen? Die Anzeigedauer wird zwar künstlich verlängert, befindet sich aber noch in einem absolut normalen Rahmen finde ich.