Delphi - Interceptar error DBEDIT

procedure Tdatos.TrabajosFc2Validate(Sender: TField);
var fecha : String ;
var ADate: TDateTime;
begin
fecha:=Sender.AsString;
try
ADate := StrToDateTime(fecha);
except
on E: EConvertError do beep;
end;
No puedo evitar el error automatico del motor de base de datos.
La exepcion se dispara depues de este mensaje.
¿Se puede cambiar l idioma de los mensajes?
Gracias

Hola
Personalmente prefiero hacerlo en OnSetText, para corregir el error antes de que se dispare cualquier evento que provoque la salida de esos mensajes de sistema, tengo un procedimiento para facilitar la validacion de fechas de este modo, si lo necesitas hacemelo saber a mi direccion y te la envio.
En tu caso, creo que no basta con verificar que se produjo el error sino solucionarlo, para que no aparezca el mensaje por Ej con un
(Sender as tDateField).Clear ; // ó
(Sender as tDateField).AsDateTime := Date ;
// o fecha válida coherente con el dato que estás
// tratando

Saludos