История изменений

Судя по http://docwiki.embarcadero.com/RADStudio/XE4/en/Date_and_Time_Support, тебе надо использовать TTimeStamp:

http://docwiki.embarcadero.com/Libraries/XE4/en/System.SysUtils.TTimeStamp

TTimeStamp represents time and date values.

Use TTimeStamp to represent date and time values when a great deal of accuracy is required for the time portion. When the time values do not need to be precise to the millisecond, use the more compact TDateTime representation. If additional precision is needed, use TSQLTimeStamp (but do not assign it to a Variant).

Только что-то я не вижу функций, которые бы возвращали текущее время не в TDateTime

Судя по http://docwiki.embarcadero.com/RADStudio/XE4/en/Date_and_Time_Support, тебе надо использовать TTimeStamp:

http://docwiki.embarcadero.com/Libraries/XE4/en/System.SysUtils.TTimeStamp

TTimeStamp represents time and date values.

Use TTimeStamp to represent date and time values when a great deal of accuracy is required for the time portion. When the time values do not need to be precise to the millisecond, use the more compact TDateTime representation. If additional precision is needed, use TSQLTimeStamp (but do not assign it to a Variant).