Frage zu RC4 Verschlüsselung

[Larsi]

hi, was muss ich machen damit ich damit:

Delphi-Quellcode:

var
  x: TRC4Context;
  str1, str2, str3: string;
begin
  readLn(str1);
  setLength(str2,length(str1));
  writeLn('text: '+str1);

  RC4Init(x,'Passwort');
  RC4Code(x, str1[1], str2[1], Length(str1)); // verschlüsseln
  Rc4Done(x);

  writeLn('coded: '+str2);
  setLength(str3,length(str2));

  RC4Init(x,'Passwort');
  RC4Code(x, str2[1], str3[1], Length(str2)); // entschlüsseln
  Rc4Done(x);

  writeLn('encoded: '+str3);
  readLn;
end;

zb den inhalt eines edit felds verschlüsseln will?