encriptar ¿?

[baby]

hola
muy buenas a todos los sabios del foro
esty implimentando el codigo de cesar para encriptar cadenas que como ya lo sabeis consiste en sumar cada letra del array por 3 posiciones a la dech de su codigo ascii,el problema me esta dando con la z aunque lo hice con el teorema del resto pesando en que si se introduzca la z tiene que haber como resultado la c pero me sigue fallando en la z?¿nose porke ?¿
esta es la codificacion que hice

Código Delphi [-]
var
     cadena1,cadena2:string[100];
     nele,desp,tamano,i:integer;
begin
     desp:=3;
     nele:=23;
     cadena1:=edtf.Text;
     tamano:=length(cadena1);
     for i:=1 to tamano do
         cadena1[i]:=chr(ord(cadena1[i])+desp+nele mod 23);
    edtfe.Text:=cadena1;
end;
end.

gracias de antemano
saludos