[delphi-br] Validar DBEdit que recebe Data sem usar markara

[itasouza]

Amigos, preciso validar um campo deste tipo, estou colocando onExit

try
  StrToDate(DBEdit.Text);
except
on EConvertError do
  ShowMessage ('Data Inválida!');
end;

mais não está funcionando, alguém saberia como fazer?

Agradeço!!