UnitQESBPCSGlobals2
DeclarationDOWStrs : array [1..7] of string = ('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday');