Портирование юникода Delphi: Несовместимые типы: ошибка «Char» и «AnsiChar» с функциями Win32, такими как CharToOEM?

Я пытаюсь преобразовать какой-то старый код Delphi 7 в Delphi 2010

function AnsiToDOS(S: String): String;
begin
  SetLength(Result, Length(S));
  if S <> '' then begin
     CharToOEM(PChar(S), PChar(Result));
  end;
end;

Я получаю "Несовместимые типы: 'Char' и 'AnsiChar ' " ошибка в строке:

CharToOEM (внешняя функция User32) найдена в

модуле Windows.pas

Можно ли как-то переписать эту функцию AnsiToDos, или мне нужно написать свою собственную процедуру CharToOEM?