Mostrar una ventana "Inicializando" mientras se crean las Forms

[[coso]]

Estas muy cerca, te dejo el modo en que yo lo hago :

Código Delphi [-]
var
        Ab : T_about;
begin
  Ab := T_about.Create(Application);
  Ab.SpeedButton1.Visible := False;
  Ab.Show;
  Ab.Update;

  Application.Initialize;
  Application.Title := '......';
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(T_main, _main);
   ...  
  Application.CreateForm(T_vpres, _vpres);
  Ab.destroy;

  Application.Run;
end.

Si quieres q mientras se carga no se quede en blanco la 'Splash Screen', ves poniendo Ab.Update's entre los Application.CreateForm