Como validar uma data?

Oi pessoal!!!

Preciso validar uma data... digito uma data no DBedit e se a data estiver invalida aparece uma mensagem ´Data inválida!´. Fiz o seguinte codigo

try
strtodate(data.Text);
except
on EConvertError do
application.MessageBox(´Data Inválida!´, ´Informação´, [smbOK]);
end;

só que não funciona, antes aparece a mensagem do delphi dizendo que a data não é válida, como devo tratar isso?

Obrigada...
Paty