delphi function for date time code example Example: how to deacrease Time in delphi //CompareDateTime(ThisMoment, FutureMoment) returns LessThanValue (-1)