Type DateRec = Record
                 DateString     : String80;
                 Year,Month,Day : Integer
               End;
