Application.Initialize;
FSplash:=TFSplash.create(application);
Application.Title:='Sial 2008';
fsplash.texto.caption:='Creando el entorno...';
FSplash.show;
FSplash.update;
Application.CreateForm(Tfprincipal, fprincipal);
Application.CreateForm(Tfacercade, facercade);
FSplash.Hide;
FSplash.free;
Application.Run;