DateRec = RECORD
              DateComp       : Word;
              LongDateString : String80;
              DateString     : String80;
              Year,Month,Day : Integer;
              DayOfWeek      : Integer
            END;
