splash screen

[Softweb]

Hola

Yo lo hago a sin:

Código Delphi [-]
  Application.Initialize;
  SwShowLogo( 0, C_TITULOAPP, C_DESCRIAPP, PAnsiChar('Versión '+FloatToStr(C_VERSION)) );
  Application.Title := 'APP';
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TMain, Main);
  SwCerrarShow;
  Application.Run;

Código Delphi [-]
procedure SwShowLogo( Size: integer; Titulo, Detalle, Version: PChar ); stdcall;
begin
  Screen.Cursor := -11;
  DlgLogo := TDlgLogo.Create(Application);
  DlgLogo.Boton.Visible := False;
  DlgLogo.Tag := 0;
  if Titulo <> '' then DlgLogo.LTitulo.Caption := Titulo;
  if Detalle <> '' then DlgLogo.LDetalle.Caption := Detalle;
  if Version <> '' then DlgLogo.LVersion.Caption := Version;
  if Size <> 0 then DlgLogo.LTitulo.Font.Size := Size;
  DlgLogo.Show;
  DlgLogo.Update;
  Screen.Cursor := 0;
end;

procedure SwCerrarShow; stdcall;
begin
  DlgLogo.Close;
  DlgLogo.Free;
end;

Espero que te sirva, si no es asín dímelo.

Saludos