Splash screen não fecha de jeito nenhum (minha 1º msg)

Eu fazia isso no Delphi 4 e funcionava, agora no Delphi 7 não funciona o formulário Splash fica aberto atraz do Formulario Principal :x

FrmSplash := TFrmSplash.Create(Application);
Application.Initialize;
FrmSplash.Show;
FrmSplash.Update;
FrmSplash.Gauge1.MaxValue:=3;
FrmSplash.Gauge1.AddProgress(1);
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
Application.CreateForm(TFrmSplash, FrmSplash);
FrmSplash.Gauge1.AddProgress(1);
Application.CreateForm(TDM, DM);
FrmSplash.Gauge1.AddProgress(1);
Application.CreateForm(TFrmSplash, FrmSplash);
FrmSplash.Hide;
FrmSplash.Free;
Application.Run;

:oops: :cry:

Ajuda ae :wink: