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;