[e_god]

Creo que es el mismo caso que se me presento, lo solucione asi:

If DBEdit31.text=' / / ' then
T_contratocont_venceanticipo.clear
else T_contratocont_venceanticipo.value := StrToDate(DBEdit31.text);


Ojala te sirva.

Édgar.