Validar y Autocompletar Fecha en un DBEdit

[[gluglu]]

Pensaba que al introducir '29/02/2006' me ejecutaba

Código Delphi [-]
procedure TDBDateEdit.ValidateEdit;
var
   pos : integer;
   Aux_Date : TDateTime;
begin
   if not Validate(Text, pos) then
     DateComplete;
  ...

... pero estaba equivocado, y no entra ahí.

Funciona correctamente así :

Código Delphi [-]
procedure TDBDateEdit.ValidateEdit;
var
   pos : integer;
   Aux_Date : TDateTime;
begin
 
   if not Validate(Text, pos) then
     DateComplete;
 
   if not TryStrToDate(Text, Aux_Date) then
     Abort;
   
   inherited;
 
end;

Me queda entonces sólo la pregunta acerca de donde interceptar un posible error en mi programa principal para lanzar mi propio mensaje de error avisando de Fecha Erronea.

Entiendo que tengo que cambiar el 'Abort' por algo, pero necesito vuestra ayuda.