Problema de Validação de Data no Delphi

Estou usando o seguinte código em um MaskEdit no evento OnExit:

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

Mas o Delphi não está mostrando a Mensagem do ShowMessage, ele dá um erro dizendo que não é uma Data válida.

Alguém pode me ajudar?

Obrigado