Como saco una barra de progreso al iniciar una aplicacion que tarda en arrancar?

[__cadetill]

Probado y funcionando

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Form2 := TForm2.Create(Application);
  Form2.Show;
  Form2.Update;
  Application.CreateForm(TForm1, Form1);
  Form2.Free;
  Application.Run;
end.

Asegurate que Form2 este en available forms (no en autocreate) y que el Main Form sea el Form1

Espero que ahora si