How can I apply a simple XOR encryption/decryption mechanism in Delphi with no third party packages?

Question

How can I apply a file encryption/decryption mechanism correctly in Delphi?

I found a very old source that supposedly teaches how to do just that, but using strings. Afte