Delphi - Se me sigue cerrando toda la aplicación....

Hola , se cierra la aplicación al cerrar el splash y lo tengo de la siguiente manera.
El MainForm en Proyect/Options es : mdiPrincipal

Esto está en el inicio de la aplicación :
Application.Initialize;
Application.CreateForm(TmdiPrincipal, mdiPrincipal);
Application.Run;

En el Create del mdiPrincipal creo el Splash así :
Application.CreateForm(TfrmSplash, frmSplash);
frmSplash.Show;

Y en el Show del mdiPrincipal lo cierro :
frmSplash.Close;

Pero se me cierra toda la aplicación , ¿Cómo debo hacerlo ?

Gracias

A ver...
En el DPR de tu proyecto escribe lo siguiente:
Agrega el nombre de la Unit donde está declarado el form del splash a la lista de Uses del DPR, ese form debes quitarlo de la lista de autocreados.

Application.Initialize;

FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show;
FrmSplash.Update;

Application.CreateForm(TFrom1, From1);
...

Luego en el evento OnShow de Form1:
if Assigned(FrmSplash) then
begin
FrmSplash.Release;
FrmSplash:=nil;
end;
También debes agregar el nombre de la Unit a la clausula Uses en Form1

He probado poner lo que me has puesto arriba pero me genera un error en la línea :

FrmSplash := TFrmSplash.Create(Application);

del DPR.Lo tengo puesto de esta manera :

Application.Initialize;

FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show;
FrmSplash.Update;

Application.CreateForm(TmdiPrincipal, mdiPrincipal);
Application.Run;

Gracias

program Proyecto01;

uses
Forms,
unitPrincipal in \'unitPrincipal .pas\',
uAbout in \'uAbout.pas\';

{$R *.res}

var
SplashAbout: TAboutBox;

begin

Application.Initialize;

SplashAbout := TAboutBox.Create (Application);

try
splashAbout.Arranque;
SplashAbout.Close;
finally
SplashAbout.Free;
end;

Application.CreateForm(TfrmPrincilal, frmPrincipal);
Application.CreateForm(TAboutBox, AboutBox);
Application.Run;
end.
-------------------------------------------------------------------------------------------
//Dentro del formulario about colocas la funcion arrancar()
//asi:
procedure TAboutBox.arranque;
begin
Show;
Update;
end;
-------------------------------------------------------------------------------------------
//NOTA; a la funcion arrancar() le podes poner lo que quieras un timer, abrir archivos, para no sobrecargar a tu frmPrincipal.
//espero que te de resultados positivos.
Atte,
Cuervo

Demás está decir que FrmSplash es la variable de tipo TFrmSplash que está en la interface de la unidad donde está declarado el form del splash, ¿cierto?.