Unicode Frage Char(Byte(String[Byte]) Delphi 2009

[Samashy]

Ich muss ehrlich zugeben, dass ich den Quelltext zu meiner Frage ganz und gar nicht verstehe. Er kommt aus einer Passwortverschlüsselung. (Crypt32)

Delphi-Quellcode:

function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
  I : Byte;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
  end;
end;

Nach dem Compilieren mit Delphi 2009 wird kein Pw mehr entschlüsselt. Bitte, kann mir jemand helfen, wie ich folgendes Statement in Unicode umschreiben muss?
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8)); Danke,
Romy
PS: So weit steig ich da noch nicht durch.