Splash skal vente i fem sek...

Hey...
jeg har denne kode:

Application.Initialize;

Form3:= TForm3.Create(Application);
Form3.Show;
Form3.Update;

While Form3.Timer1.Enabled do Application.ProcessMessages;

  Form3.ProgressBar1.Position := 25;
  Application.CreateForm(TForm1, Form1);
  Form3.ProgressBar1.Position := 50;
  Application.CreateForm(TForm2, Form2);
  Form3.ProgressBar1.Position := 75;
  Application.CreateForm(TFaknr, Faknr);
  Form3.ProgressBar1.Position := 100;

Form3.Hide;
Form3.Free;
Application.Run;

som viser en splash, men da det er et meget lille program, vises den kun i ultra kort tid - så derfor ville jeg gerne have at den stod i 5 sek, før den forsætter med at create de andre forms - hvordan gør jeg det ???