Работа со строками.(Delphi)

[SfSpawN]

Работа со строками.Написать программу, которая заменяет каждый символ строки, введенной пользователем на символ с кодом, меньшим на единицу (т.е. предыдущий символ).Для первой буквы алфавита - поменять на последнюю букву.(Например "моя строка" =>"лню рспнйя").

Вот что я сделал:
procedure TForm1.ButtonClick(Sender:TObject);
var
str:string;
i:integer;
begin
str:=edit1.Text;
for i:=1 to length(str) do
if(str[i]='a') then
str[i]:='я'
else
str[i]:=chr(ord(str[i])-1);
edit2.Text:=str;
end.
что нужно исправить здесь мне, так как вводя заглавную букву А выводит почему то i , а не заглавную Я? заранее благодарю за помощь.

[__STDC__]

потому что заглавные буквы имеют другие коды... у вас заглавная А нигде не учитывается в программе
задача уже решалась мной тут между прочим..