[serhasae]

A ver utilize el truco de trucomania no para mostrar el splash sino para minimizar la ventana al lado del reloj (trayicon).

A ver tengo un formulario llamado Splash y ahi tengo una barra progressbar.

En el principal el primero que se crea tengo:

Código Delphi [-]
 
var
Splash:TSplash;
 
Application.Initialize;
 
  Application.CreateForm(TPasswordDlg, PasswordDlg);
  Application.CreateForm(TFPass, FPass);
  Application.CreateForm(TFQuickR, FQuickR);
  Application.CreateForm(TFBRNomNino, FBRNomNino);
  Application.CreateForm(TFSelec, FSelec);

  Splash:=TSplash.Create(nil);
  Splash.Gauge.Position:=0;
  Splash.Gauge.Step:=6;
  Splash.Show;
  Application.ProcessMessages;

  Application.CreateForm(TFPrincipal, FPrincipal);
  Application.CreateForm(TFMes, FMes);
  Application.CreateForm(TFRecibi, FRecibi);
  Application.CreateForm(TFReciMes, FReciMes);
  Application.CreateForm(TFBusRecibos, FBusRecibos);
  Application.CreateForm(TFBusRecibo, FBusRecibo);
  Application.CreateForm(TFBRecNom, FBRecNom);
  Application.CreateForm(TFBRecibos, FBRecibos);
  Application.CreateForm(TRPagados, RPagados);

y mas abajo tengo:

Splash.Close;
Splash.Free;
Splash:=nil;

Y Luego el Application.Run que era obvio por eso en una primera instancia no lo puse.