Como Criar um Splash no Delphi (Passo a Passo)

A criação de um Splash em Delphi é uma coisa bem simples, que dura aproximadamente de 5 a 10 minutos.
Vamos lá!
Adicione 1 Timer e 1 Progressbar

 Agora clique 2 vezes no TIMER e cole o seguinte código:
progressbar1.Position:=10;
sleep(556);
progressbar1.Position:=20;
sleep(556);
progressbar1.Position:=30;
sleep(556);
progressbar1.Position:=40;
sleep(556);
progressbar1.Position:=50;
sleep(156);
progressbar1.Position:=60;
sleep(700);
progressbar1.Position:=70;
sleep(55);
progressbar1.Position:=80;
sleep(55);
progressbar1.Position:=90;
sleep(556);
progressbar1.Position:=100;
sleep(3006);

 form2.show;
Você podera mudar os valores de SLEEP(tempo).
Ficará assim:

 

Vá até BorderStyle e marque o estilo BSNONE, como é mostrado na figura:

Crie um novo FORM, como no exemplo abaixo:

Clique duas vezes no evento OnShow da FORM2,

e cole o seguinte código:

form1.destroy;

Pronto! Você também pode colocar figuras em seu splash, labels e mais coisas do seu gosto.
Vídeo Aula:
 

Gostou? Então compartilhe e comente!