Resultado ModalResult de un Form

[[Delphius]]

vejerf ya ¿Viste el código que muestra Neftali?

Creo que estás errado en la forma de trabajar con ventanas modales.

Este es un ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Opcion: TModalResult;
begin
  Opcion := form2.ShowModal;
  case Opcion of
  mrOK: ShowMessage('Aceptar');
  mrCancel: ShowMessage('cancelar');
  end;
end;

Asumí que la forma está en AutoCreate. Si no es así, lo que debes hacer es crear la forma y luego mostrarla Modalmente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Opcion: TModalResult;
    Frm2: TForm2;
begin
  Frm2 := TForm2.Create(nil);
  Frm2.ShowModal;
  case Opcion of
  mrOK: ShowMessage('Aceptar');
  mrCancel: ShowMessage('cancelar');
  end;
end;

Saludos,