如何把这段JAVA转换为delphi

type
  TEncryptUtil = class
  public
    function Epass: Int64;
    function Encrypt(inString: AnsiString): AnsiString;
  end;

function TEncryptUtil.Encrypt(inString: AnsiString): AnsiString;
var
  nPwd: Int64;
  cpass: array of AnsiChar;
  i, len: Integer;
begin
  Result := '';
  nPwd := Epass;
  len := Length(inString);
  SetLength(cpass, len);
  ZeroMemory(cpass, Length(cpass));
  for i := 0 to len - 1 do
  begin
    cpass[i] := inString[i + 1];
    cpass[i] := Chr(Ord(cpass[i]) xor nPwd);
    cpass[i] := Chr(Ord(cpass[i]) and 377);
  end;

  len := Length(cpass);
  for i := 0 to len - 1 do
    Result := Result + cpass[i];
end;

function TEncryptUtil.Epass: Int64;
var
  ppass: AnsiString;
  pLen: Int64;
  i: Integer;
begin
  Result := $8DFE657A719;
  ppass := 'test';
  pLen := Length(ppass);
  for i := 0 to pLen - 1 do
    Result := Result xor (Byte(ppass[i + 1]) or $80);
end;