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