Formato de fecha correcto

[Acker]

Buenos dias a tod@s!!

Trabajo con Delphi 7 y MS Access.

Estoy tratando de comprobar que la fecha que introduce el usuario por teclado es del formato adecuado, pero no lo consigo.
Este es el código que tengo el el evento onExit:

Código Delphi [-]
procedure TFInsertarCLientes.DBENacimientoExit(Sender: TObject);
begin
  if DBENacimiento.Text<>'' then
  begin
      try
          strToDate(DBENacimiento.Text);
      except
           ShowMessage('Formato de fecha incorrecto');
      end;
  end;
end;

Tambien tengo activada la opcion Stop on Delphi Excepcion del menu de Debugger Options. ¿Qué hago mal?

Un saludo y gracias a tod@s.

P.D..- ¿¿Alguna forma de controlar que en un Edit se meta un Nif correcto sin usar máscaras??