B4X FEED Convert Delphi function to B4A

[practicalsoft]

I tried to convert the function below from Delphi to B4A, but I'm stuck in ths part of the code:
B4X:

NewText := NewText + Chr((Ord(Key(x)) xor Ord(Text(y))));
What is an how to use the equivalent commands (chr, xor, ord) in B4A?
Spoiler: Delphi function
B4X:

محتوای بلوک کدها در دسترس شما نیست. برای مشاهده بلوک کدها، وارد انجمن شوید یاثبت نام کنید

Spoiler: My B4A function
B4X:

محتوای بلوک کدها در دسترس شما نیست. برای مشاهده بلوک کدها، وارد انجمن شوید یاثبت نام کنید

This...

برای دیدن لینک ها باید ثبت نام کنید

برای دیدن لینک ها باید ثبت نام کنید