[BUG?] MainMenu reagiert nichtmehr

[Angel4585]

Leutz!

Delphi-Quellcode:

 with TtfWV.Create(Application) do //Formular wird erzeugt
  begin 
   try 
    Show;       //Formular wird angezeigt
    while Visible do //Warten bis Formular nichtmehr angezeigt wird
     Application.ProcessMessages; 
   finally 
    Free; //Formular freigeben
    end; 
  end;

Jemand was dagegen?

EDIT: Selbst wenn das free noch drin ist. Es hat mit ShowModal und Show nichts zu tun. Ich bin da schon alles durchgegangen.

EDIT2: Hat Jemand von euch das eigentlich mal ausprobiert?