wrapText para WideString en Delphi

Question

Delphi tiene una función WrapText:

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

Ahora necesito una versión que maneja WideStrings:

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

existe tal función escrita en algún lugar ya?

ADVERTENCIA: No todas cadena de caracteres de ancho es de 2 bytes

por lo que me temo que escribirlo

actualización: Ejemplo de un personaje que lleva más de 2 -bytes para representar:

capital América W con el anillo y cedilla

• Bytes: 57 00 66 03 27 03
• dictada en Chrome 17:
• rendida en Internet Explorer 9:
• rendida en Bloc de notas usando Segoe UI:
• dictada en Bloc de notas usando Consolas :
• rendida en su navegador en fuente sans serif: w
• rendida en su navegador en monospaced fuente: W̧̊

Answer 1

Como se ha mencionado por KOBIK, TNT UnicodeControls tiene una unidad TntSysUtils que incluye la siguiente función:

function WideWrapText(const Line, BreakStr: WideString; const BreakChars: TSysCharSet; 
    MaxCol: Integer): WideString; overload; 
function WideWrapText(const Line: WideString; MaxCol: Integer): WideString; overload; 

sitio de descarga alternativo es here.