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