[GRIZZLY_imported]

Как насчет использования функции DATI2VARIANT, как в примере:

AppointmentItem.Start := DATI2VARIANT(Todo.Date,SkipSeconds(Todo."Start Time"));