Verschlüsselung mit dem Caesar Verfahren

[Jan]

Delphi-Quellcode:

procedure TForm1.BVerschluesselnClick(Sender: TObject); 
var parameter, x, s, y: integer; 
    alphabet, a: string; 
    b: char; 
begin 
  MAusgabe.Text:=''; 
  alphabet:=MEingabe.Text; 
  parameter:=Para.Value; 
   for y:=1 to length(alphabet) do 
    begin 
     s:=ord(alphabet[y]); 
     if (s>=65) and (s<=90) then
         b:=chr((((s-65)+parameter) mod 26)+65);
     else if (s>=97) and (s<=122) then
         b:=chr((((s-97)+parameter) mod 26)+97); 
     a=a+b;
    end; 
    MAusgabe.Lines.Add(a); 
end;

Das ist alles ungetestet und ich hab ewig nix mehr in Delphi geschrieben. Nutzung ist also auf eigene Gefahr und für etwaige Hirnschäden wird keine Haftung übernommen. Sollte vom Prinzip her aber stimmen.
Gruß
Jan