Hola gio013.
Es correcta la acotación de Nuño.
Y se puede reducir más el código trabajando directamente con la clase:
Código:
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.