Validacion de fechas en un MaskEdit

[PTW]

Tengo un componente MaskEdit con una mascara del tipo "__/__/__" para insertar una fecha en el formato dd/mm/aa.

en el Evento OnExit del MaskEdit, he intentado controlar que no se inserte una fecha incorrecta

   try 
		 StrToDate(MaskEditFecha.text);
   except
		 MessageDlg('Fecha Incorrecta');
		 MaskEditFecha.SetFocus;
   end;

El problema surge cuando inserto una fecha incorrecta. Se me para el programa diciendo que la fecha no es correcta.

Tambien he leido en este foro un hilo que hablaba sobre este tema.
- Una de las soluciones que daban era utilizar el evento OnExit tal como yo lo he utilizado, Pero a mi eso no me funciona
- Tambien se habla de "redefinir" la clase MaskEdit

	type
	  TMaskEdit = class(Mask.TMaskEdit)
	protected
	  procedure ValidateError; override;
	end;

	TForm1 = class(TForm)
	  { métodos y propiedades }
	end;

	implementation

	procedure TMaskEdit.ValidateError;
	 begin
		 MessageBeep(0);
		 raise EDBEditError.Create('Formato incorrecto');
	 end;

Pero esta solucion que dan no logro entender lo que hace. He hecho un Copy&Paste del codigo, pero tampoco funciona

Alguien me pueda echar una mano? o las dos?

Muchas gracias