Алгоритм Цезаря

[***СкаЙ***]

Написал алгоритм шифровки, а он кодирует токо начало строк в мемо. Подскажите в чем может быть загвоздка. Зарание спасибо.
procedure TForm1.N3Click(Sender: TObject);
var j , h:integer; l, rez, q, g:string; f:char;
begin

n12.Enabled:=false;
s:=strtoint(inputbox('Øèôð Öåçàðÿ','Ââåäèòå êëþ÷ü (òîëüêî öåëîå ÷èëî)','0'));
n3.Enabled:=true;
h:=0;
while h<memo1.lines.count do begin
inc(h);
q:=memo1.Lines[h];
rez:='';
for j:=1 to length(q) do
begin
f:=q[j];
l:=chr((ord(f)+s)mod 255);
rez:=rez+l;
end;
memo2.lines.Add(rez);
end;
n3.Enabled:=false;
n4.Enabled:=true;
end;
procedure TForm1.N4Click(Sender: TObject);
var a, rez, d, g:string; c:char;
i, k, h :integer;
begin
memo1.Clear;
h:=0;
while h<memo2.Lines.Count do begin
inc(h);
a:=memo2.Lines[h];
rez:='';
for k:=1 to length(a) do
begin
c:=a[k];
d:=chr((abs(ord(c)- s))mod 255);
rez:=rez+d;

end;
memo1.lines.Add(rez);
end;
end;

[RSLoader]

Возможно, загвоздка здесь: d:=chr((abs(ord(c)- s))mod 255)
Попробуй убрать mod 255 - наверняка заработает.
Вот мой аналогичный код:

//Функция возвращает закодированную или
//раскодированную (в зависимости от значения Decode)
//строку S шифром Цезаря с ключом Key
function Cesar(Key:Integer; S:String; Decode:Boolean):String;
var
  i:Integer;
  st:String;
begin
  st:=S;
  if Decode then Key:=-Key;
  for i:=1 to Length(S) do
    st[i]:=Chr((Ord(S[i])+Key));
  Result:=st;
end;
//Шифровка
procedure TForm1.Button1Click(Sender: TObject);
var
  i,Key:Integer;
begin
  Key:=StrToInt(Edit1.Text); //Ключ вводим в Edit1
  for i:=0 to Memo1.Lines.Count-1 do
    Memo1.Lines[i]:=Cesar(Key,Memo1.Lines[i],False);
end;
//Расшифровка
procedure TForm1.Button2Click(Sender: TObject);
var
  i,Key:Integer;
begin
  Key:=StrToInt(Edit1.Text);
  for i:=0 to Memo1.Lines.Count-1 do
    Memo1.Lines[i]:=Cesar(Key,Memo1.Lines[i],True);
end;

[***СкаЙ***]

Спасиба тебе огромное!!!!!