{$codepage UTF8} TYPE TLetras = Set of Char; VAR Mayusculas : TLetras = ['A'..'Z']; BEGIN Mayusculas:=Mayusculas+[#165]; END.