Criando um SplashScreen Corretamente - Delphi

É muito comum ver diversos sistemas que possuem tela de abertura com uma barra de carregamento, sendo que não há nada carregando.. ou seja... a barra de progresso se torna um enfeite ou frescura.
Mas agora, vou demonstrar como criar uma barra de progresso que realmente mostra que está carregando alguma coisa.

Primeiramente, temos que criar o formulário de abertura, vou criar um formulário 'mais ou menos' só para demonstração.

Ao invés de utilizar ProgressBar, vou utilizar um TGauge que fica na paleta Samples. O Form vai se chamar frmSlpash, o Gauge se chamará Gauge1.

Vamos abrir o arquivo .dpr e visualizar seu conteúdo. Clique com o Botão direito e selecione View Source.

Sabemos que esse é o arquivo que executa nossa aplicação, assim como o carregamento dos Formulários.
Dentro da estrutura begin e end temos o seguinte código.

begin
  // inicia a aplicação
  Application.Initialize;
  // mostra na barra de tarefas
  Application.MainFormOnTaskbar := True;
  // carrega os formulários
  Application.CreateForm(TfrmSplash, frmSplash);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  // executa a aplicação
  Application.Run;
end.

Agora, vamos tratar do formulário frmSplash. Para carregar a barra, vamos alterar seu valor a cada carregamento a formulário que nossa aplicação carrega, e vamos mudar o status e a porcentagem, da seguinte maneira.

Primeiramente vamos declarar no arquivo .drp a uses SysUtils, que vai ser responsável pelo comando Sleep(); que vamos usar.
Podemos dizer que o comando Sleep é um Delay, que aguarda um certo momento para prosseguir com a aplicação.

begin
  // cria a tela de abertura antes
  frmSplash := TfrmSplash.Create(Application);
  // mostra a tela de abertura
  frmSplash.Show;
  frmSplash.Refresh;
  // Começa com 1%
  frmSplash.Gauge1.Progress := 1;
  // espera...
    Sleep(100);
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
//Application.CreateForm(TfrmSplash, frmSplash);
  // cria o form2
  Application.CreateForm(TForm2, Form2);
  // altera a ProgressBar
    frmSplash.Gauge1.Progress := 8;
    // espera...
    Sleep(500);
 

  Application.CreateForm(TForm3, Form3);
  // altera a ProgressBar
  frmSplash.Gauge1.Progress := 34;
  // espera...
  Sleep(500);

  Application.CreateForm(TForm4, Form4);
  // altera a ProgressBar
  frmSplash.Gauge1.Progress := 51;
  // espera...
  Sleep(500);

  Application.CreateForm(TForm5, Form5);
  // altera a ProgressBar
  frmSplash.Gauge1.Progress:= 73;
  // espera...
  Sleep(500);

  Application.CreateForm(TForm6, Form6);
  // altera a ProgressBar
  frmSplash.Gauge1.Progress := 100;
  // espera...
  Sleep(500);
 

 // esconde o form
  frmSplash.Hide;
  frmSplash.Free;
  Application.Run;
end.

Desta maneira, a barra TGauge será carregada após a criação de cada formulário.

Você também pode alterar o Caption de um Label a cada vez que um formulário for criado, dessa maneira:

  // cria o form2
  Application.CreateForm(TForm2, Form2);
  // altera a ProgressBar
  frmSplash.Gauge1.Progress := 8;
  // altera o status
  frmSplash.lblStatus.Caption := 'Carregando Forumlario2...';
  // espera...
  Sleep(500);

Baixe esta source aqui!

É isso aí galera, abraço e até a próxima!