Delphi - como hacer que se demore un Splash Screen

hola amigos anteriormente pregunte como hacer un Splash Screen con un progressbar..olvidenlo ...Ahora lo que necesito es que mi Spash Screen se demore por ejemplo 10 segundos antes de que aparezca la aplicacion como tal

como lo hago

gracias de antemano

Saludos a todos

Yo uso Delay:

//Esto es el .dpr del Proyecto
begin
Form9:=TForm9.Create(Application); //Splash Screen
Form9.Show;
Application.Initialize;
Form9.Update;
Application.Initialize;
Application.Title := 'El que sea';
Application.CreateForm(TFormPrincipal, FormPrincipal);
Form9.Delay(1500);
Form9.Hide;
Form9.Free;
Application.Run;
end.

//Este es el Form del Splash (en este caso, el Form9)
procedure TForm9.Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

Suerte.