ProgressBar

  Application.Initialize;
  with TFrmInicio.Create(nil) do
  try
    ProgressBar1.Max := 100;
    Show;   // show a splash screen contain ProgressBar control
    Update; // force display of FrmInicio
    ProgressBar1.StepBy(10);
    Application.CreateForm(TDMA, DMA);
    ProgressBar1.StepBy(10);
    Application.CreateForm(TFrmPrincipalSCC, FrmPrincipalSCC);
    ProgressBar1.StepBy(20);
    Application.CreateForm(TFrmLocalizar, FrmLocalizar);
    ProgressBar1.StepBy(10);
    Application.CreateForm(TFrmConfirma, FrmConfirma);
    ProgressBar1.StepBy(20);
    Application.CreateForm(TFrmBackup, FrmBackup);
    ProgressBar1.StepBy(20);
    Application.CreateForm(TFrmRel, FrmRel);
    ProgressBar1.StepBy(10);
    Application.CreateForm(TFrmConfirma, FrmConfirma);
  finally
    Free;
  end;
  Application.Run;