Я бы рекомендовал немного по-другому. Процесс загрузки приложения — сложная тема. Методом проб и ошибок я понял, что нужно делать так:

1. Дизайните Splash Screen, делаете все, что считаете с ним нужным
2. Весь процесс загрузки выводите в отдельный поток
3. В OnCreate главной формы пишите:

procedure TMainForm.FormCreate(Sender: TObject);
var
  ApplicationLoadTread: TApplicationLoadTread;
begin
  // exception
  Application.OnException:= ExceptionAction;
  SetErrorMode( SEM_FAILCRITICALERRORS );

  // splash init
  SplashForm:= TSplashForm.Create( Application );
  SplashForm.Show;
  SplashForm.Update;

  ApplicationLoading:= True;
  ApplicationLoadTread:= TApplicationLoadTread.Create;
  ApplicationLoadTread.FreeOnTerminate:= True;
  ApplicationLoadTread.OnTerminate:= MainForm.OnFormCreateFinished;
  ApplicationLoadTread.InfoLabel:= SplashForm.InfoLabel;

  ApplicationLoadTread.Start;

  // waiting 'till finished
  while ApplicationLoading do
    Application.HandleMessage;

end;

это запустит тред загрузки и выведет splash screen

4. Когда тред загрузки отработает он вызывает Callback функицию, наподобии:

procedure TMainForm.OnFormCreateFinished( Sender: TObject );
Begin
  ApplicationLoading:= False;

  // slash destroy
  SplashForm.Hide;
  SplashForm.Free;
End;

Это всязано с особенностью обработки Windows зависших приложений. Если ваш spash не бует отвечать Windows на «пинги» он будет помечен, как зависший. Тред помогает избежать этого поведения.

Главное правило при разработке GUI приложения — все действия прячьте в тред. Даже секундные. Так ваше приложение не будет «висеть» по мнению пользователя или ОС.