Controlar cuando se ha pulsado un botón en otra unidad (propiedades)

[[David]]

Hola

Tengo un DataModule con una función que me crea un formulario Modal , luego
en ese formulario cuando puso el botón aceptar tiene que realizar una función del datamodule, esto lo estaba haciendo con ModalResult = mrOk, pero esta forma ya no vale pues me desaparece la ventana, y queria algo parecido pero que la ventana no desapareciera.

Pongo como estaba antes más o menos.

Código Delphi [-]

// En el DataModule

procedure TDataModule.EjemploA;
begin
  Form1 := TForm1.Create(self);
  with Form1 do
  begin
     // Algunas cosas
    ShowModal;
    if ModalResult = mrOk then // si pulsa el botón correspondiente

       ProcedureEjemploB;
  end;

end;

procedure TDataModule.ProcedureEjemploB;
begin
  // código para mostrar un informe
end;

el caso es que quiero cambier el ModalResult = mrOk por otra cosa, quizás una propiedad o algo que me diga lo mismo, pero de tal manera que la ventana no desaparezca y se quede ahí, de tal manera que pueda pulsar al botón una y otra vez para sacar informes según criterio del usuario.

Si la mejor forma de hacerlo es con propiedades, como no las he usado, me gustaria saber de que forma lo tengo que hacer, si hay otra forma mejor, pues con hacer esa también esta bien.

Saludos