[Alegun]

Получился сильно ламерский код, достойный страниц говнокода, но надёжно рабочий и попроще:

Код:

function Usr(ds: char): char;
begin
    case ds of
'а':Result:='А';'б':Result:='Б';'в':Result:='В';'г':Result:='Г';'д':Result:='Д';
'е':Result:='Е';'ё':Result:='Ё';'ж':Result:='Ж';'з':Result:='З';'и':Result:='И';
'й':Result:='Й';'к':Result:='К';'л':Result:='Л';'м':Result:='М';'н':Result:='Н';
'о':Result:='О';'п':Result:='П';'р':Result:='Р';'с':Result:='С';'т':Result:='Т';
'у':Result:='У';'ф':Result:='Ф';'х':Result:='Х';'ц':Result:='Ц';'ч':Result:='Ч';
'ш':Result:='Ш';'щ':Result:='Щ';'ъ':Result:='Ъ';'ы':Result:='Ы';'ь':Result:='Ь';
'э':Result:='Э';'ю':Result:='Ю';'я':Result:='Я'; else Result:=UpCase(ds);end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
i  : integer;
begin
str:= Edit1.Text;
for i:= 1 to Length(str) do
// for i:= Length(str) downto 1 do
begin
str[i]:= Usr(str[i]);
memo1.Lines.Add(str);
end;
end;

На форму нужно кинуть кнопку, эдит (в нём обрабатываемое слово) и мемо.