Не ставятся пробелы между словами при шифровании Цезаря

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    Button4: TButton;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const alfa:array[0..65] of char = ('À','Á','Â','Ã','Ä','Å','¨','Æ','Ç','È','É', 'Ê','Ë','Ì','Í','Î','Ï','Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×','Ø','Ù','Ú','Û','Ü','Ý','Þ','ß', 'à','á','â','ã','ä','å','¸','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û', 'ü','ý','þ','ÿ');
 
var
  Form1: TForm1;
  a:array[0..65] of char;
  i, j, k: integer;
  s, s2:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
For i:=0 to 65 do
  begin
    a[i]:= alfa[(i+1) mod 66];
  end;
   // øèôð
    k := StrToInt(Edit1.Text);
    s := Memo1.Lines.Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i] = a[j] then s2 := s2+a[(j+(k)) mod 66];
    Memo2.Lines.Text := s2;
    s2 := '';
  end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
// äåøèôð
    s2:='';
    k := StrToInt(Edit1.Text);
    s := Memo1.Lines.Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i] = a[j] then s2 := s2+a[j mod 66];
    Memo2.Lines.Text := s2;
  end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.Lines.Clear;
memo2.Lines.Clear;
edit1.Text:='';
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
For i:=0 to 65 do
  begin
    a[i]:= alfa[(i+1) mod 66];
  end;
   // шифр
    k := StrToInt(Edit1.Text);
    s := Memo1.Lines.Text;
    s2:='';
    for i := 1 to length(s) do
    if s[i]=' ' then s2:=s2+s[i]
    else
      for j := 0 to 65 do
        if s[i] = a[j] then s2 := s2+a[(j+(k)) mod 66];
    Memo2.Lines.Text := s2;
    s2 := '';
  end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
// дешифр
    k := StrToInt(Edit1.Text);
    s := Memo1.Lines.Text;
    s2:='';
    for i := 1 to length(s) do
    if s[i]=' ' then s2:=s2+s[i]
    else
      for j := 0 to 65 do
        if s[i] = a[j] then s2 := s2+a[j mod 66];
    Memo2.Lines.Text := s2;
  end;