NAME: PackTime

     USE:  Accepts a date-time record and converts it in to a 4-byte
           packed date-and-time longint to be used by SetFTime.

     DEPENDENCY:  The DOS unit must be used placed in the uses section.

     SYNTAX: PackTime(Var DateTimeValue : DateTime; Var ETime : LongInt);

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