Validação de data

Oi,

No evento onExit de um Edit que recebe uma data, quero mostrar uma mensagem de erro se o usuário digitar uma data inválida...

Fiz assim:

Try
Data:= StrToDate(editData.text);
Except
on EConvertError do
ShowMessage(´Data inválida´);


Mas ao tentar converter ( Data:= StrToDate(editData.text) ), é mostrada a msg. de Erro do Delphi, antes mesmo de executar o Except.... como faço?

Obrigada!