Validar Fecha de un TDateField

[cesar_picazo]

Eso mismo estoy haciendo en el campo xx en el onvalidate tengo lo siguiente

procedure TPrincipal.xxonValidate(Sender: TField);
var
texto:variant;conttemp2,conttemp:integer;
cccc:variant;
Hoy : TDateTime;
Year, Month, Day: Word;
begin
showmessage('Error');
end;
Pero para entrar a este onvalidate tiene que estar bien escrita la fecha, con la mascara que le pongo ##/##/##, no se si existe un forma de capturar el error ante de esto, o que hace internamente delphi, para que yo suprima el mensaje de error que envia delphi por completar la fecha como lo comentaba.

Project api.exe raised exception class EconvertError With Message "20/04/" is not a valid date. Process Stopped. Use Step or to Continue.

Lo que necesito saber es como capturar este mensaje para en caso se de ser una fecha erronea yo completarla.