procedure CharToOemBuff(var S: AnsiString);
Translates an ANSI string to a string with characters from the OEM-defined character set.