Ajuda- aos programadores !!!

Terminei meu programa de controle de veiculos!! e estou com um problema!!! que ninguem consegue resolver!! ele parece facil de resolver mas não eh não!!!

no cadastro de veiculos eu tenho um campo data(data de apolice do veiculo) e esse campo é do tipo date e não é obrigatorio, pois um veiculos pode não estar segurado....

o problema e o seguinte ele teria que deixar passar data em branco!!!
se o usuario passar pelo campo usando TAB ele deixa passar normal, mas se o usuario para no campo digitar algo apagar e tentar sair ele da um erro de data invalida ele tenta converter a mascara!!! quando ele da esse erro ele nem entrar em nenhuma linha do código, pois execute o programa usando o F7 e verifiquei que ele da o erro antes mesmo de executar o onexit do dbedit!!!!

eu ja usei esse codigo mas nada adiantou>>>

procedure TFrmVeiculos.DBEdit9Exit(Sender: TObject);
begin
if not TbVeiculos.FieldByName(´DT_VENC_APOL´).isnull then
begin
try
strtodate(DBEdit9.text); //tentativa 1
except
on EConvertError do
begin
showmessage(´Data Inválida´);
dbedit9.SetFocus;
end;
end;
end;
end;

procedure TFrmVeiculos.DBEdit11Exit(Sender: TObject);
begin
if (dbedit11.text) <>´ / / ´ then
begin
try
strtodate(DBEdit11.text); //tentativa 2
except
on EConvertError do
begin
showmessage(´Data Inválida´);
dbedit11.SetFocus;
end;
end;
end;
end;

ele nem entra no bloco de comando a mensagem de erro que da é em ingles !!!