Pantalla de inicio
 

¿Y que es lo que quieres que marque ese progreso?...
Si tu aplicación va a cargar módulos pesados, que tardan en cargar, es lógico poner alguna indicación para calmar la impaciencia del usuario, y en este caso el progreso lo marcará la misma carga de estos módulos...

hombre si, que mientras se rellene la barra ponga cosas como:
'cargando datos' 'inicializando datos', ..., pero claro todo de pega porque mi aplicación no tiene módulos pesados que digamos. Por cierto he encontrado la función 'sleep()', que se supone que hace una pausa en la ejecución, pero a mi no me funciona, me da error (tengo delphi 4).

Bueno, pero eso depende de los pasos que haga tu programa al iniciar, no te lo podemos decir nosotros.
Simpelemente tienes que saber la cantidad de pasos que hará tu programa y asignárselo a la propiedad Max (y dejar Min en cero).
Cada vez que tu aplicación termine un paso, o bien puedes cambiar el valor de la propiedad Position, o puedes llamar al método StepBy(1), o puedes llamar a StepIt definiendo previamente el valor de cada paso en la propiedad Step.

Sería buenísimo saber que error te da el uso de la función sleep, ya que es mas que básica, solo tienes que usar la unit Windows, y llamar a la función pasándole como parámetro el tiempo en milisegundos que quieres que detenga la ejecución.

PD: ¿Te parece lógico forzar que la aplicacón tarde mas de lo que tardaría realmente al iniciar?

Quizá no le funciona el Sleep porque falta algún Refresh. Aquí un ejemplo:

Código Delphi [-]
program Project1;

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

{$R *.res}

begin
  Application.Initialize;

  Form2 := TForm2.Create(Application);
  Form2.Show;
  Form2.Refresh;

  Form2.Label1.Caption := 'Ensamblando pixeles...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Pintando controles...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Pegando la barra de desplazamiento...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Agregando botones...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Font.Style := [fsBold];
  Form2.Label1.Caption := 'Un momento, voy al sanitario';
  Form2.Refresh;
  Sleep(50000);
  Form2.Label1.Font.Style := [];

  Form2.Label1.Caption := 'Fijando la barra de título...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Recopilando fuentes...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Activando el cursor...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Free;

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

:D

pd: La verdad es que al principio suena muy bonito eso del splash aún siendo innecesario, pero al final tus usuarios te agradecerán que la aplicación inicie lo antes posible.

// Saludos

oops, que novato, pues si lo que faltaba era la unit Windows para que
funcionara el sleep. Indagaré en eso 'delphi.com.ar' grácias, y grácias
a ti tambíen 'roman' por el código.

PD: la verdad es que creo que teneís razón con lo del 'splash screen',
pero bueno, lo probaré haber que tal.

Saludos.

Pues yo coincido con lo que dice delphi.com.ar ....¿Que caso tiene hacer mas lento el programa solo para que "se vea mas profesional" o el usuario tenga tiempo de admirar el arte del bitmap del Splash?...Yo no soy muy amigo de poner Splash a menos que durante el inicio de la aplicación tenga que hacer procesos previos o "preparar el terreno" (en mi caso casi siempre son conexiones a bases de datos remotas), además estos Splash unicamente son útiles cuando no sabes a ciencia cierta que tanto tiempo puede tardar...Ahora bien si de todas formas quieres que el usuario vea quien lo hizo o algo asi, puedes poner una forma "Acerca..." sencilla con un boton "Aceptar" que se active justo cuando se ha cargado por completo la aplicación dándole al usuario la oportunidad de cerrarla cuando quiera...

En fin, es solo una opinión...:rolleyes:

¡Que velocidad! :D