WrapText для WideString в Delphi

В Delphi естьWrapTextфункция:

function WrapText(const Line, BreakStr: string; const BreakChars: TSysCharSet; MaxCol: Integer): string;
function WrapText(const Line: string; MaxCol: Integer): string;

Теперь мне нужна версия, которая обрабатывает WideStrings:

function WrapTextW(const Line: WideString; MaxCol: Integer): WideString;

Любая такая функция уже где-то написана?

ПРЕДУПРЕЖДЕНИЕ: Не каждый символ широкой строки занимает 2 байта

Вот почему я боюсь его писать

Обновление: Пример символа, для представления которого требуется более 2 байтов:

Заглавная латиница W с кольцом и седильей

• Байты: 57 00 66 03 27 03
• Отображено в Chrome 17:
• Отображено в Internet Explorer 9:
• Отображено в Блокноте с использованием пользовательского интерфейса Segoe:
• Отображено в Блокноте с помощью Consolas:
• Отображено в браузере шрифтом без засечек: W̧̊
• Отображено в браузере шрифтом моноширинным: W̧̊