Nein 100% hat es nicht geklappt, wie gesagt ewig nix mehr in delphi gemacht, aber mit ein wenig Eigeninitiative wäre man auf folgendes gekommen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var parameter, x, s, y: integer;
alphabet, a: string;
b: char;
begin
Memo1.Text:='';
alphabet:=Edit1.Text;
parameter:=2;
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)
else
b:=alphabet[y];
a:=a+b;
end;
Memo1.Lines.Add(a);
end;
Und das ist sogar getestet, klappt also auch.
Gruß
Jan