hmm und was passiert wenn er a eingibt??
dann kommt nicht z sondern irgendein sonderzeichen mit deinem code, hier mal nen update von meinem:
Delphi-Quellcode:
function ceaser(text : string; pos : integer) : string;
var i : integer;
Begin
for i := 1 to length(Text) do
if ord(text[i])-pos < 97
then result := result + char(ord(123 - (pos - (Ord(text[i]) - 97))))
else if ord(text[i])-pos < 65
then result := result + char(ord(91 - (pos - (Ord(text[i]) - 65))))
else result := result + Char(Ord(text[i])-pos);
end;