В Delphi есть три функции для изменения регистра: UpCase, LowerCase, UpperCase. Но они работают только для латинского алфавита. Чтобы сделать аналогичные функции для русского алфавита используем то, что в кодировке Windows-1251 буквы расставлены по алфавиту, как большие, так и маленькие.