Otra opción es desactivar el Timer cuando haya pasado el tiempo que quieres que permanezca la presentación en pantalla, así, puedes meter todo el código en el dpr de este modo:
Código Delphi
[-]
with FSplash do begin
show;
update;
while timer1.enabled do
application.processMessages;
hide;
free;
end;