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ść.