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