Hola XaRz!
El tiempo que tarde en mostrarse el splash va a depender de la velocidad del procesador, ya que tardará "1000000" vueltas. Esto en un PC lento tardará mucho, y en un PC rápido, pues será rápido.
Yo te recomiendo algo como esto:
Código Delphi
[-]
procedure CargarPrograma;
var
Splash: WinformSplash.TWinFormSplash;
begin
Splash := WinformSplash.TWinFormSplash.Create; try
Splash.Show;
Splash.Update;
Splash.SetTextoCargandoForms; CargarForms; Splash.SetTextoCargandoInterfaces; CargarInterfaces;
Splash.Hide;
finally
Splash.Free;
end;
Application.Run(Main_Window.TWinForm_Principal.Create); end;