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

[[David]]

pero si el botón no tiene la propiedad modalresult puesta.

Si ese no es el tema, el tema es que hago un ShowModal en el Datamodule, después espero a que pulse el botón y entonces tiene que hacer un código después del ShowModal y es llamar al otro procedure.

Código Delphi [-]
// Código del Datamodule

Form1 := TForm1.Create(Self);
With Form 1 do
begin
// código
ShowModal;

if (pulsa el botón) then

procedure B;
end;

El tema es que ahora donde pone (pulsa el botón) , tengo puesto if ModalResult = mrOk then

Y en el botón del formulario , hace comprobaciones , y si todo va bien , en código hago un ModalResult = mrOk.

Pero si no hago el ModalResult = mrOK dentro del código del botón, no ejecuta el procedure B.

Bueno lo que he hecho finalmente es hacer un pequeño ejemplo, en Delphi 6 , algo sencillo, esquematico, para explicarme mejor, voy a subir el código, lo añado. Lo llamo EjemploSimple.

A ver si alguien puede mirarlo.

Saludos