Szyfr Cezara.

Witam.
Napisalem kod na szyfr cezara

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  s : string;
begin
  s := Edit1.Text;
  for i := 1 to length(s) do
    if s[i] in ['A'..'Z'] then s[i] := chr(65 + (ord(s[i]) - 62) mod 26);
  Edit2.Text := s;
end;

i program sie kompiluje tylko dlaczego nie szyfruje. Jestem poczatkujacy więc proszę o wyrozumiałość.

A co znaczy "nie szyfruje"?
Nie pojawia się w Edit2 nic?
A może szyfruje tylko duże litery których w Edit1 nie wprowadziłeś?