Manejo de Excepciones

[anghell77]

He intentado, las sugerencias....

Código Delphi [-]
 
try
 DataModule2.DespachoFECHA.Value:=StrToDate(MaskEdit1.text);
  except
    Application.MessageBox('Formato de fecha incorrecto','Atención',mb_Ok +mb_IconQuestion);
    MaskEdit1.SetFocus;
  end;

Y aún me sigue mandando errores: "Invalid Input Value", o al escribir fechas invalidas, pues arroja "15/15/15 is not a valid Date"....
También intenté crear la clase subalterna del MaskEdit como sugiere Roman

[left]

Código Delphi [-]
 <div align="left"><div align="left">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;
end.div>div>

Pero ésta alternativa sólo no avisa nada....obviamente no deja que siga con los demás procesos que realizo, como Guardar, el cual está condicionado a la captura correcta de todos los datos; pero no dice que esté mal la entrada ni dice si no se ha escrito algo, obvio es funcional porque no aparecen los errores en inglés pero no los señala tampoco como lo escribimos....

Alguna sugerencia?? GRACIAS.....

{Saludos}