Codificar en UTF-16LE

[Ramsay]

Hola gente , estoy buscando codificar el texto de un memo en UTF-16LE , el problema es que no encuentro nada de esto en delphi.

Hay en ruby y python :

Código Delphi [-]
from base64 import b64encode
b64encode('iex(command)'.encode('UTF-16LE'))

Código Delphi [-]
require "base64"
Base64.encode64('iex(command)'.force_encoding('UTF-16LE'))

¿ Alguien sabe como hacer esto en Delphi ?