como crear ventana emergente

[ecfisa]

Hola gio013.

Es correcta la acotación de Nuño.

Y se puede reducir más el código trabajando directamente con la clase:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  with TForm_ventanaEmergente.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

Además no te olvides de quitar esa ventana de la creación automática de ventanas.

Project-> Options-> AutoCreate Forms.


Saludos.