Delphi Splash Screen Com Barra de Progresso

[.IndependentResearch.]

program Granja; 
// Programador - Arthur Paixão 
// arthur.paixao@guiadohacker.com.br 
uses 
  Forms, 
  Principalf in 'Principalf.pas' {Principal}, 
  Areaf in 'Areaf.pas' {Area}, 
  Galpaof in 'Galpaof.pas' {Galpao}, 
  Clientef in 'Clientef.pas' {Cliente}, 
  Saidaf in 'Saidaf.pas' {Saida}, 
  Relatoriof in 'Relatoriof.pas' {Relatorio}, 
  baixaf in 'baixaf.pas' {Baixa}, 
  Mortalidadef in 'Mortalidadef.pas' {Mortalidade}, 
  manubaixaf in 'manubaixaf.pas' {Manubaixa}, 
  ConsEstoquef in 'ConsEstoquef.pas' {ConsEstoque}, 
  sobref in 'sobref.pas' {Sobre}, 
  ImpRelatoriof in 'ImpRelatoriof.pas' {ImpRelatorio}, 
  Consultasf in 'Consultasf.pas' {Consultas}, 
  ImpEntradaf in 'ImpEntradaf.pas' {ImpEntrada}, 
  PassWord in 'PassWord.pas' {PasswordDlg}, 
  ImpMortalidadef in 'ImpMortalidadef.pas' {ImpMortalidade}, 
  ImpSaidaf in 'ImpSaidaf.pas' {ImpSaida}, 
  ImpClientesf in 'ImpClientesf.pas' {ImpClientes}, 
  Apres2f in 'Apres2f.pas' {Apres}, 
  Entradaf in 'Entradaf.pas' {Entrada}; 
  
{$R *.RES} 
  
var 
i:shortint; 
maximo:shortint=0; 
divisor:shortint=19; 
begin 
  Application.Initialize; 
  Application.Title := 'GSJ2 - LloydSoft'; 
  with TApres.Create(nil) do 
  try 
  Gauge1.MaxValue:=100; 
  Show; 
  Update; 
  Panel1.caption:='Criando Tela: Principal'; 
  Panel1.Repaint; 
Application.CreateForm(TPrincipal, Principal); 
  for i:=1 to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Cadastro de Entradas'; 
  Panel1.Repaint; 
Application.CreateForm(TEntrada, Entrada); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Cadastro de Mortalidade'; 
  Panel1.Repaint; 
Application.CreateForm(TImpMortalidade, ImpMortalidade); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Impressão de Saida'; 
  Panel1.Repaint; 
Application.CreateForm(TImpSaida, ImpSaida); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Impressão de Clientes'; 
  Panel1.Repaint; 
Application.CreateForm(TImpClientes, ImpClientes); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Password'; 
  Panel1.Repaint; 
Application.CreateForm(TPasswordDlg, PasswordDlg); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Consultas'; 
  Panel1.Repaint; 
Application.CreateForm(TConsultas, Consultas); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Impressão de Entradas'; 
  Panel1.Repaint; 
Application.CreateForm(TImpEntrada, ImpEntrada); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Impressão de Relatório'; 
  Panel1.Repaint; 
Application.CreateForm(TImpRelatorio, ImpRelatorio); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Estoque'; 
  Panel1.Repaint; 
Application.CreateForm(TConsEstoque, ConsEstoque); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Sobre'; 
  Panel1.Repaint; 
Application.CreateForm(TSobre, Sobre); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Cadastro de Entradas'; 
  Panel1.Repaint; 
Application.CreateForm(TArea, Area); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Cadastro de Galpão'; 
  Panel1.Repaint; 
Application.CreateForm(TGalpao, Galpao); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Cadastro de Clientes'; 
  Panel1.Repaint; 
Application.CreateForm(TCliente, Cliente); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Cadastro de Saídas'; 
  Panel1.Repaint; 
Application.CreateForm(TSaida, Saida); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Relatório'; 
  Panel1.Repaint; 
Application.CreateForm(TRelatorio, Relatorio); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Baixa'; 
  Panel1.Repaint; 
Application.CreateForm(TBaixa, Baixa); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Mortalidade'; 
  Panel1.Repaint; 
Application.CreateForm(TMortalidade, Mortalidade); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Criando Tela: Manutenção'; 
  Panel1.Repaint; 
Application.CreateForm(TManubaixa, Manubaixa); 
  for i:=maximo to (maximo+(100 div divisor)) do 
  begin 
  gauge1.progress:=i; 
  maximo:=i; 
  end; 
  Panel1.caption:='Finalizando'; 
  Panel1.Repaint; 
  finally 
  Free; 
  end; 
  Application.Run; 
end.