Chamando uma splash screen

Na unit principal de seu projeto (*.DPR), aquela onde a primeira linha de código é 'PROGRAM PROJECT1;'.

a) Digite abaixo da linha 'Application.Initialize':

Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Update;

b) Agora digite antes da linha 'Appication.Run':

Form2.Hide;
Form2.Free;

No TForm2 que é a tela de apresentação, você terá que finalizá-lo da seguinte forma:
{Obs: este método é opcional, para no caso de preferência do
prolongamento de uma apresentação}
a) Insira um componente TTimer no TForm2.
b) Na Propriedade Interval do componente TTimer digite 5000
c) No Evento OnTimer do componente TTimer digite CLOSE;