Delphi - ET, Prueba esto

Hola ET.

begin
Screen.Cursor := crHourGlass;
Splash := TSplash.Create(nil); // El formulario se llama Splash...
Splash.Show;
Splash.Update // Con update me garantiza que se muestra el formulario.
end.

Para que garanticemos que el Timer funcione y se cierre, deberás agregar lo siguiente al timer...

procedure TSplash.Timer1Timer(Sender: TObject);
begin
SplashFm.Splash.Free;
SplashFm.Splash := nil; // Con Nil aseguramos que quede bien eliminado...
Screen.Cursor := crDefault;
Timer1.Enabled := false;
end;

Claro que deberás referenciar el formulario principal del programa de esta forma...

implementation
uses Principa; // Asumiendo que se llame principa la unidad principal

Al final del procedimiento OnShow del formulario principal deberás meter el siguiente código, que es el que activa el formulario Splash Screen para su destrucción...

With Splashfm.Splash do
Timer1.Enabled := true;

NOTA: si tienes otra manera mas sencilla de hacerlo enviame el ejemplo por favor

gracias de ante FELIZ NAVIDAD ET

Que tal, pues encontré algo parecido a lo que usas, pero sin timer, checa

http://www.q3.nu/trucomania/truco.cgi?32&esp

http://delphi.about.com/od/formsdialogs/a/splashscreen.htm