Я должен закодировать массив байтов в строку base64 (и декодировать эту строку) на старом Delphi 2007. Как я могу это сделать?

Дальнейшая информация:

Я пробовал синапс (как предложено здесьБинарный в Base64 (Delphi)).