API - como converter um texto acentuado no DOS para Windows

Veja como converter um texto acentuado no DOS para Windows

function OEMToStr(const OEM : String):String;

begin

  SetLength(Result, Length(OEM));

  OEMToChar(@OEM[1], @Result[1]);

end;

Bastará chamar função passando a string acentuada.