Comenta la línea
ModalResult := mrOk;
y veras que ya no se te cierra el form.
Mejor utiliza otro metodo, emplea una variable, como por ejemplo
Aceptado : Boolean; .... if aceptado then ....
Estos son problemas, pequeños que se resuelven de una manera muy fácil. Si la montaña no va a Mahoma, Mahoma va a la montaña, es algo simple.
Saludos.
|