Fórum Erro Splash Screen com bds2006 #348959

var
  i : Shortint;
  Maximo : Shortint=0;
  Divisor : Shortint=19;
begin
  Application.Initialize;
  Application.Title := ´Representantes´;
  Application.CreateForm(TfSplash, fSplash);
  with fSplash do
  try
    Gauge1.MaxValue := 100;
    Show;
    Update;
    Panel1.Caption := ´Crianto tela: Principal´;
    Panel1.Repaint;
  Application.CreateForm(TfPrincipal, fPrincipal);
  for I := 1 to (maximo + (100 div divisor)) do
    begin
      Gauge1.Progress := i;
      Maximo := i;
    end;
    Panel1.Caption := ´Criando Repositório de Banco de Dados: Cadastros´;
    Panel1.Repaint;
    Application.CreateForm(TDMCadastro, DMCadastro);
    for I := Maximo to (Maximo + (100 div Divisor)) do
    begin
      Gauge1.Progress := i;
      Maximo := i;
    end;
    Panel1.Caption := ´Criando Repositório de Banco de Dados: Vendas´;
    Panel1.Repaint;
    Application.CreateForm(TDMVendas, DMVendas);
    for I := Maximo to (Maximo + (100 div Divisor)) do
    begin
      Gauge1.Progress := i;
      Maximo := i;
    end;
    Panel1.Caption := ´Criando Repositório de Banco de Dados: Vendas´;
    Panel1.Repaint;
    Application.CreateForm(TDMBusca, DMBusca);
    for I := Maximo to (Maximo + (100 div Divisor)) do
    begin
      Gauge1.Progress := i;
      Maximo := i;
    end;
    Panel1.Caption := ´Finalizando...´;
    Panel1.Repaint;
  finally
    Hide;
    Release;
  end;
  Application.Run;