Showmodal no muestra

[jonmendi]

gracias Delphius!
en la unit avisos tengo todos los avisos que le salen al usuario (siempre que esté todo controlado ).

Nada más entrar al programa, le sale un "Espere mientras se cargan datos', pero nada más hacer ese proceso, quiero que se le cierre la ventana y le saque otra de un aviso de como ha ido la carga. Ese segundo mensaje sí quiero que lo conteste el usuario.

Eso es lo que hace el código:

 
unit auxiliares;
interface
procedure ejecutar;
implementation
uses uAvisos, forms;
procedure ejecutar;
begin
  uAvisos.tipo := 1;
  fAvisos.Show;
  ProcesoQueTardaMucho;
  fAvisos.Close;
  uAvisos.tipo := 2
  fAvisos.Visible := False;
  fAvisos.ShowModal;
end;
end.

En la unit Avisos voy definiendo los diferentes mensajes y al mostrarlo elijo un texto u otro, un tipo de letra, unos botones....

No sé si ahora está más claro.

Muchas gracias a todos.

Jon