Me parece que el problema esta en tu función "Valida", si cuando termina de ejecutarse el evento, el ModalResult del form <> mrNone, se cierra el form.
Te recomendaría que lo sigas paso a paso a ver si verdaderamente pasa siempre por la línea: ModalResult := mrOk;
Saludos!
__________________
delphi.com.ar
Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
|