UnpackTime and PackTime procedures use the DateTime definition to
     examine and construct the 4-byte date and time values.  These
     values are used with GetFTime, SetFTime, FindFirst, and the FindNext
     procedures.  The fields and their valid ranges are as follows:

             DateTime = Record
                Year, Month, Day, Hour, Min, Sec : Integer;
             end;

             Year 1980..2099     Month 1..12     Day 1..31
             Hour 0..23          Min 0..59       Sec 0..59