[DarKraZY]

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; // form del splash
  try
    Splash.Show;
    Splash.Update;
    Splash.SetTextoCargandoForms; // procedure que va canviando valores del label;
    CargarForms; // procedure que carga los forms
    Splash.SetTextoCargandoInterfaces; // procedure que va canviando valores del label;
    CargarInterfaces;
    { ... } // Aquí iría todo lo que quieras cargar, primero actualizas el splash, y después lo ejecutas
    Splash.Hide;
  finally
    Splash.Free;
  end;

  Application.Run(Main_Window.TWinForm_Principal.Create); // ventana principal del programa
end;