Delphi XOR

[Saminem]

Habe ein Problem
Wenn ich etwas codieren will codiert er nicht alles warum bitte um antwort

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s , passwort: String;
  step , d:integer;
  i: Integer;
begin
  d:=0;
  passwort:=Edit1.text;
  s:=Memo1.Text;
  for i:=1 to length(s) do
  begin
    step:=Ord(passwort[d]);
    if
    d<length(passwort) then d:=d+1;
    if
    d>length(passwort) then d:=1 ;
    s[i]:=char(step Xor Ord(s[i]));
  end;
  Memo1.Text:=s;
  end;