[jonmendi]

Hola a todos!
tengo el siguiente código.

 
program Project1;
uses
  Forms,
  uAvisos in 'uAvisos.pas' {fAvisos},
  auxiliares in 'auxiliares.pas';
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TfAvisos, fAvisos);
  Auxiliares.ejecutar;
  Application.Run;
end.

 
unit uAvisos;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
type
  TfAvisos = class(TForm)
    lTexto: TLabel;
    bAceptar: TBitBtn;
    bCancelar: TBitBtn;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  fAvisos: TfAvisos;
implementation
{$R *.dfm}
 
procedure TfAvisos.FormShow(Sender: TObject);
begin
  lTexto.Caption := 'Espere...';
end;
end.

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

Mi problema es el siguiente:
Tal como está el código, no me saca el form fAvisos. En cambio si solo dejo el fAvisos.Showmodal

 
unit auxiliares;
interface
procedure ejecutar;
implementation
uses uAvisos, forms;
procedure ejecutar;
begin
{  fAvisos.Show;
  fAvisos.Close;
  fAvisos.Visible := False;}
  fAvisos.ShowModal;
end;
end.

sí que me lo muestra. ¿Alguien sabe qué estoy haciendo mal?

Muchas gracias a todos.
Jon