El código en donde estoy utilizando el Componente DatetimePicker es el Siguiente:
Código Delphi
[-]
procedure TFFacturadeVentas.BGuardarClick(Sender: TObject);
......
TCabVentasTemp.FieldByName('Fecha').Value:= DTPFecha.Date;
procedure TFFacturadeVentas.TCabVentasTempBeforePost(DataSet: TDataSet);
....
TCabVentasTemp.FieldByName('Fecha').Value:= DTPFecha.Date;
procedure TFFacturadeVentas.FormActivate(Sender: TObject);
...
DTPFecha.Date:=Date;
procedure TFFacturadeVentas.DBGDatosDblClick(Sender: TObject);
....
FieldByName('Fecha').Value:= DTPFecha.Date;
procedure TFFacturadeVentas.DBGDatosColExit(Sender: TObject);
....
DataSource.DataSet.FieldByName('Fecha').Value:= DTPFecha.Date;