try EncodeDateTime Function.
... From Delphi 7 Help:
EncodeDateTime returns a TDateTime that represents a specified year, month, day, hour, minute, second, and millisecond.
Delphi syntax:
function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime...