One second as a fraction of a day (suitable for TDateTime)
Source position: dateutil.inc line 50
const OneSecond = TDateTime(1) / SecsPerDay;