подправить алгоритм (Шифр цезаря)

[BioWolf]

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

var
Form2: TForm2;
b:array[0..65] of char;
i, j : byte;
s, s2:string;
implementation
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
For i:=0 to 65 do
begin
b[i]:= Alf[(i+1) mod 66];
end;

if CheckBox1.Checked = false then begin
s := Memo1.Lines.Text;
for i := 1 to length(s) do
for j := 0 to 65 do
if s[i] = b[j] then s2 := s2+b[(j+3) mod 66];
Memo2.Lines.Text := s2;
s2 := '';
end;

if CheckBox1.Checked = true then begin
s := Memo1.Lines.Text;
for i := 1 to length(s) do
for j := 0 to 65 do
if s[i] = b[j] then s2 := s2+b[(j-3) mod 66];
Memo2.Lines.Text := s2;
s2 := '';
end;end;

end.

[iCaesy]

Есть готовый, написанный на дэлфи, с выбором ключа, выбором сдвига, шифровка, расшифровка.
Если понадобится пиши в асю.