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' ,
Unit2 in 'Unit2.pas' ;
{$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.
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