По добре си дефинирай масив с константи - които да прекодират от единия код към другия код символа - така на един ред ще прекодираш всичко - към този масив ще добавиш и кирилицата. Единственото което ще е по трудно е инициализацията на този масив(за кирилицата я знаеш, а за всеки специален символ - едно действие Convert[SymNumb] = NewChar).

---
Колкото повече, толкова повече.

pich, Google-to izkara suma ti komponenti barabar sus sorsa:
http://www.google.com/search?hl=en&lr=&ie=UTF-8&q=dos+%22win-1251%22+delphi

А бе, човеко, не съм глупав!
Има съотвествие друг път между всяка таблица. Направено е съответствие между кирилските букви -те са в онзи диапазано. Но "топче" има и то е с номер 250 - извън диапазано, а аз трябва да го запазя и него, също както кирилицата. СЪответствието му е 149, но няма никакъв алгоритъм за това.

Решението се оказа по-просто, отколкото предполагах, но интересното е, че никой не се сети да ми го предложи директно.
Преобразуването от и към MS-DOs кодировката(или OEM, след като някой ме поправи че нямало такава кодировка!) се осъществява с Win32 функциите OemToChar и CharToOem .
Толкова по тази тема.

Казаха ти го ама ти май нещо не четеш достатъчно внимателно
-----------------------------------------------
The OemToAnsi function is obsolete.

For compatibility with 16-bit versions of Windows, this function is implemented as a macro that calls the OemToChar function, which should be used for new Win32-based applications.
-----------------------------------------------
Айде сега се върни по назад в темите и се сети кой ти говори за OemToAnsi и AnsiToOem

---
Колкото повече, толкова повече.