Должно побыстрее работать, но не сравнивал
Код:
Init()
ASCIIstr:=' АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№#';
ANSIstr:= ' ЊЌЋЏђ‘’“”•–—™љ›њќћџЈҐ©«®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ N ';
ANSIstr[66]:=185;
ANSIstr[67]:=160;
DosWin(New : Text[1024]) : Text[1024]
EXIT(CONVERTSTR(New,ASCIIstr,ANSIstr));