procedure CharToOemBuff(var S: AnsiString);
Выполняет преобразование указанной строки S с набором символов ANSI в строку с набором символов OEM.