[protector2020]

este es el codigo de mi proyecto donde uso una splashscreen, a mi me funciona bien. lo aprendi de Trucomania.

program CdAPProy;

uses
  Forms,
  CdAPForma in 'CdAPForma.pas' {Form1},
  CdAPDatos in 'CdAPDatos.pas' {DataModule2: TDataModule},
  Splash in 'Splash.pas' {Form2};
...

{$R *.res}

begin
  Form2:=TForm2.Create(Application);
  Form2.Show;
  Form2.Update;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule2, DataModule2);
...
  Form2.Hide;
  Form2.Free;
  Application.Run;
end.

adicionalmente agrego el codigo de creacion de la splash, por si es de ayuda.

procedure TForm2.FormCreate(Sender: TObject);
begin
Self.Image1.Left:=0;
Self.Image1.Top:=0;
Self.Image1.Picture.LoadFromFile('splash.jpg');
Self.Image1.AutoSize:=True;
Self.ClientHeight:=Self.Image1.Height;
Self.ClientWidth:=Self.Image1.Width;
Self.BorderStyle:=bsNone;
Self.Position:=poDesktopCenter;
end;

espero que les sea de ayuda. saludos.