como crear ventana emergente

[Ñuño Martínez]

Jac fcc: creo que has tenido un despiste, en lugar de "EXCEPT" quizá debiste poner "FINALLY". De lo contrario únicamente eliminaría la ventana si se lanza una excepción, pero si todo funcionara correctamente entonces nunca la eliminaría, ocupando cada vez más memoria y generando algún que otro problema más, dependiendo de lo que haga la propia ventana.

Por otro lado, en vez de usar "Application.CreateForm" mejor, quizá, crearla diréctamente. Vamos, que yo lo haría así:

Código Delphi [-]
PROCEDURE TForm1.Button1Click (Sender: TObject);
BEGIN
     TRY
        Form_ventanaEmergente := TForm_ventanaEmergente.Create (SELF);
        Form_ventanaEmergente.ShowModal;
     FINALLY
        Form_ventanaEmergente.Free;
     END;
END;