Hola,
Parece que la función "StrToDate" levanta una excepción de tipo "EConvertError" en caso de que hubiera algún problema para convertir la cadena de marras al tipo "TDateTime". Bueno. No sé si el evento "OnExit" es el mejor para realizar la validación, pero, en todo caso, puede que te interese la función "TryStrToDate", la cual devolverá "false" si hay algún problema en la conversión de la cadena a formato "TDateTime": no se producirá excepción alguna en caso de error en la conversión. No sé si he dicho algo que merezca la pena o qué.
