El Splash Screen se desaparece muy rápido

[[eduarcol]]

codigo del proyecto:

Código Delphi [-]
program Project2;

uses
Forms,
SysUtils,
Unit1 in '..\..\..\..\..\Archivos de programa\Borland\Delphi7\Projects\nuevo\Unit1.pas' {principal},
Unit9 in 'iconos\Unit9.pas' {splashscreen};

{$R *.res}

begin

SplashScreen := TSplashScreen.Create(Application) ;
SplashScreen.Show;
SplashScreen.Update;
sleep(3000);
Application.CreateForm(Tprincipal, principal);
Application.Initialize;
Application.Run;
end.

es sencillo fijat la linea resaltada