[adebonis]

Hola.

Ok. Cierto.

Al final (me has dado la idea) he dejado el código del proyecto como sigue:

Código Delphi [-]
  fSplash := TfSplash.Create(Nil);
  try
  fSplash.Show;
  fSplash.Label1.Caption := 'Leyendo la configuración del programa...';
  fSplash.Update;
  Application.CreateForm(TSgpPral, SgpPral);
  if SgpPral.varSeguir then begin
    fSplash.Label1.Caption := 'Conectando con el Servidor de datos...';
    fSplash.Update;
    Application.CreateForm(TdmSgp, dmSgp);
    Application.CreateForm(TdmCon, dmCon);
    Application.CreateForm(TdmMan, dmMan);
    Application.CreateForm(TfMaestros, fMaestros);
    fSplash.Label1.Caption := 'Comprobando actualizaciones...';
    fSplash.Update;
    Application.CreateForm(TfCompras, fCompras);
    fSplash.Label1.Caption := 'Creando directivas de trabajo...';
    fSplash.Update;
    Application.CreateForm(TfAsuntos, fAsuntos);
    fAsuntos.Show;  
  end;
  finally
  fSplash.Free;
  end;
  if SgpPral.varSeguir then
    Application.Run
  else
    Application.Terminate;

He añadido la línea fAsuntos.Show y me funciona bien.

Gracias.

Adolfo Bonis
Barcelona