[dec]

Hola,

¿Estás mostrando el formulario "modalmente"? Cuando muestras un formulario de este modo puedes recabar su "resultado" con una serie de constantes predefinidas:

Código Delphi [-]
with TForm2.Create(nil) do
try
  if (ShowModal() = mrOk) then
  begin
    // mrOK
  end;
finally
  Free;
end;

En todo caso no veo yo porqué en principio no puedes hacer algo así:

Código Delphi [-]
with TForm2.Create(nil) do
try
  if (ShowModal() <> mrOk) then
  begin
    Form1.Close();
  end;
finally
  Free;
end;