请帮助解释一下语句含义

从百度中搜到如下一函数，但没有看明白，尤其是红色代码，请各位帮忙解释一下，谢谢了！
function setpassword(PassStr: string): string;
var
  I: Integer;
begin
  PassStr := PassStr;
  if Length(PassStr) > 0 then
    for I := 1 to Length(PassStr) do
 PassStr[I] := Char(Integer(PassStr[I]) xor I);
  Result := PassStr;
end;