Шифрование сдвигом ASCII значений

[ifconfig]

Программа должна шифровать текст сдвигом ASCII значений.
При нажатии на кнопку должна выполнится проверка чтоб сдвиг указанный в edit1 не был меньше единицы, равен или более 255.. Далее должен идти сдвиг То есть брать строчку с memo1 шифровать и выводить в edit2

Вот моя процедура..
procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
i,j:integer;
code,c:byte;
scode:integer;
begin
code:=strtoint(edit1.Text);
if (code>=255) or (code<1) then
Showmessage('Сдвиг не может быть меньше 1 и более 255')
else
for i:=0 to memo1.Lines.Count do
begin
s:=memo1.lines[i];
for j:=1 to length(s) do
begin
c:=ord(s[j]);
if (c+code<255)or (c+code=255) then
scode:=c+code;
if (c+code>255) then
scode:=(c+code)-255;
s1[j]:=chr(scode);
end;
memo2.Lines[i]:=s1;
end;
end;

При задании сдвига более 256 сообщение об ошибке не выдается... И процедура где-то с ошибкой. Помогите решить проблему.