[Kirvisniemi]

Немного поразмыслив решил код "упростить" :-)

WinText := '';
FOR Pos:=1 TO STRLEN(DosText) DO BEGIN
   Ch := DosText[Pos];
   Ch := Ch + ROUND(Ch/128,1,'<')*64 - ROUND(Ch/224,1,'<')*64 + 
              ROUND(Ch/224,1,'<')*16 - ROUND(Ch/240,1,'<')*16 + 
              ROUND(Ch/240,1,'<')*72 - ROUND(Ch/241,1,'<')*72 +
              ROUND(Ch/241,1,'<')*75 - ROUND(Ch/242,1,'<')*75;
   WinText+= FORMAT(Ch);
END;