Юнит на Delphi для конвертирования UTF-8 в HTML

Нужен юнит с двумя функциями: UTFtoHTML и HTMLtoUTF.

Соотв-но, UTF-8 хранится в WideString, HTML - просто в String.

Таким образом, разнообразные китайские иероглифы, арабская вязь и т.п. должны преобразовываться в символы &#...; ...

Результат должен включать исходники формы для тестирования.