Código Delphi
[-]
if Trunc(dtpFULTIMAMANTENCION.date) = StrToDateTime('30-12-1999') then
if Trunc(dtpFULTIMAMANTENCION.date) = StrToDate('30-12-1999') then
Yo prefiero la solución de Román, aunque retocaría un poco la conversión de la cadena, según indico.
Un Saludo.