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

[__cadetill]

En el dpr de tu aplicacion pon algo asi....

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
  USpalsh in 'USpalsh.pas' {FSpalsh};
  ..... // lista de formularios y DataModules

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(FSpalsh, Spalsh);
  Spalsh.Show;
  Splash.Update;
  Application.CreateForm(TForm1, Form1);
  .....
  // creas los forms y datamodules que quieras

  Spalsh.Free;
  Application.Run;
end.

Espero te sirva