Hai provato in questo modo?
codice:
Field.AsDateTime := Date;
oppure il generico
codice:
Field.AsDateTime := Now;
Ciao!