1. que error te da?
2. Cambia el tipo de variable de Date a TDate(e incluso te diría que usaras un TDateTime que es mejor)
Y creo que con la segunda solución ya se subsanará el error, sino pasaremos a cosas más mejores.
Un saludo espero haberte ayudado.