Как сделать чтобы сохраняло пробелы?

[Otar4ik]

Есть некоторая процедура,которая отвечает за Криптосистему цезаря.
Так вот если раздельное слово написать,оно расшифрует,а если с пробелами то не расшифровывает.

Не могу понять что убрать в условии.

const alphabet:array[0..65] of char = ('À','Á','Â','Ã','Ä','Å','¨','Æ','Ç','È','É',
'Ê','Ë','Ì','Í','Î','Ï','Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×','Ø',
'Ù','Ú','Û','Ü','Ý','Þ','ß', 
'à','á','â','ã','ä','å','¸','æ','ç','è','é','ê','ë','ì','í',
'î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û', 
'ü','ý','þ','ÿ');

var
  Form1: TForm1;
  b:array[0..65] of char;
  i, j, k: byte;
  s, s2:string;

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

  if CheckBox.Checked = false then begin
    k := StrToInt(MaskEdit1.Text);
    s := IshMemo.Lines.Text;
    for i := 1 to length(s) do
    begin
      for j := 0 to 65 do
if  s[i] = b[j] then
 s2 := s2+b[(j+(k-1)) mod 66]
 else
 if s[i] <> b[j] then s2 := s2+b[(j+(k-1)) mod 66];
    ObrMemo.Lines.Text := s2;
    s2 := '';
  end;

  if CheckBox.Checked = true then begin
    k := StrToInt(MaskEdit1.Text);
    s := IshMemo.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-(k-1)) mod 66];
    ObrMemo.Lines.Text := s2;
    s2 := '';
  end;

end;

[Stilet]

Что за проблема пропускать пробелы?

 if CheckBox.Checked = false then begin
    k := StrToInt(MaskEdit1.Text);
    s := IshMemo.Lines.Text;
    for i := 1 to length(s) do
    begin
      for j := 0 to 65 do
           if s[i]=' ' then s2:=s2+s[i] else
            if  s[i] = b[j] then s2 := s2+b[(j+(k-1)) mod 66]
            else if s[i] <> b[j] then s2 := s2+b[(j+(k-1)) mod 66];
    ObrMemo.Lines.Text := s2;
    s2 := '';
  end;

  if CheckBox.Checked = true then begin
    k := StrToInt(MaskEdit1.Text);
    s := IshMemo.Lines.Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i]=' ' then s2:=s2+s[i] else
         if s[i] = b[j] then s2 := s2+b[(j-(k-1)) mod 66];
    ObrMemo.Lines.Text := s2;
    s2 := '';
  end;

[Otar4ik]

Сообщение от Stilet

Что за проблема пропускать пробелы?

 if CheckBox.Checked = false then begin
    k := StrToInt(MaskEdit1.Text);
    s := IshMemo.Lines.Text;
    for i := 1 to length(s) do
    begin
      for j := 0 to 65 do
           if s[i]=' ' then s2:=s2+s[i] else
            if  s[i] = b[j] then s2 := s2+b[(j+(k-1)) mod 66]
            else if s[i] <> b[j] then s2 := s2+b[(j+(k-1)) mod 66];
    ObrMemo.Lines.Text := s2;
    s2 := '';
  end;

  if CheckBox.Checked = true then begin
    k := StrToInt(MaskEdit1.Text);
    s := IshMemo.Lines.Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i]=' ' then s2:=s2+s[i] else
         if s[i] = b[j] then s2 := s2+b[(j-(k-1)) mod 66];
    ObrMemo.Lines.Text := s2;
    s2 := '';
  end;

Декодирует но не кодирует
отображает вот что при кодировании