como valido fechas

[JULIOCTORRESG]

tengo un control DBtext enlazado a un campo fecha de una tabla ....no quiero usar el componente maskedit pero quiero validar que la entrada de datos en el componente dbtext sea correcta chequeando los separadores al menos eso que es lo mas comun olvidar .....xx/xx/xx tengo una funcion que cuenta la barras (/) y si son dos devuelve el resultado positivo ....en caso contrario manda mensaje de alerta no vuelve al dbtext para su reedicion ....el problema es

donde llamo la funcion ....lo hice el el evento onexit del contro dbtext pero revienta la aplicacion primero con aquello de formato de fecha invalido ...por otro lado imagino que existe una funcion que verifica el valor a ver si es valido algo asi como ISDATE en delphi y como se llama esta funcion ....