Hola.
A ver... proba de este modo:
Código Delphi
[-]
DataSource.DataSet.FieldByName('Fecha').AsDateTime:= Trunc(DTPFecha.Date);
Si no habrá que esperar que alguien con conocimientos de MS SQL te oriente.
Por cierto, ¿ Que componentes estas usando y de que tipo es el campo "Fecha" ?
Saludos.