c++ Code nach Delphi portieren

[MasterTobi]

also schaut :

Delphi-Quellcode:

var x:Integer;
PW :string;
begin
PW:='king007';
for x:=1 to length(pw) do
PW[x] := Chr(Ord(PW[x]) + (3 xor X) * (X mod 15));
edit3.text:=PW;
end;

habe das nun so

edit :

die inko..... entstehen bei Power(3,x)


nochma edit: xD

also in dem c code im ersten post
ist der string dann verschlüselt so : kkpgLNU
in dem delphi code : mknƒNNS