Scripts constant

Scripts : Array[0..MaxScripts] of string = string[40] = ('European Scripts', 'Modifier Letters', 'Combining Marks', 'Miscellaneous', 'African Scripts', 'Middle Eastern Scripts', 'Central Asian Scripts', 'South Asian Scripts', 'Southeast Asian Scripts', 'Indonesian & Philippine Scripts', 'East Asian Scripts', 'American Scripts', 'Notational Systems', 'Punctuation', 'Alphanumeric Symbols', 'Technical Symbols', 'Numbers & Digits', 'Mathematical Symbols', 'Emoji & Pictographs', 'Other Symbols', 'Specials', 'Private Use', 'Surrogates', 'Noncharacters in Charts')