Текст в DOS кодировке загрузить в RichEdit

[artemavd]

Добрый день!
Есть некий TXT файл в DOS кодировке. Нужно его загрузить в RichEdit (или Мемо). Нашел такой вариант:

function WinToDos(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  AnsiToOem(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

function DosToWin(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  OemToAnsi(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

и использую его:

procedure TMainForm.sBitBtn1Click(Sender: TObject);
begin
if sOpenDialog1.Execute then
begin
 sRichEdit1.Lines.LoadFromFile(sOpenDialog1.FileName);
 DosToWin(sRichEdit1.Text);
end;
end;

но проект не компилируется, ругаясь на строку (выделил красным), говоря, что:

[DCC Error] MainUnit.pas(144): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar'

Прошу помощи в решении. Windows 7, Delphi XE

[BDA]

Вот так сработало в Delphi 2010 (нету XE)

function DosToWin(St: ansistring): string;
var
  Ch: PWideChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  OemToCharW(PAnsiChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ts: tstringstream;
begin
  if OpenDialog1.Execute then
  begin
    ts := tstringstream.Create;
    ts.LoadFromFile(OpenDialog1.FileName);
    RichEdit1.Text := DosToWin(ansistring(ts.DataString));
    ts.free;
  end;
end;

Наткнулся на проблему - перенос преобразуется интереснейшим образом
Update

А, стесняюсь спросить, почему TEncoding не используешь раз в DXE сидишь?

Спасибо, не знал . Так правильно?

procedure TForm1.Button1Click(Sender: TObject);
var
  ts: tstringstream;
  astr: String;
  B: TBytes;
begin
  if OpenDialog1.Execute then
  begin
    ts := tstringstream.Create();
    ts.LoadFromFile(OpenDialog1.FileName);
    B := tEncoding.Convert(tEncoding.GetEncoding(866),
      tEncoding.GetEncoding(1251), ts.Bytes);
    astr := StringOf(B);
    RichEdit1.Text := astr;
    ts.free;
  end;
end;

[Stilet]

AnsiToOem(PAnsiChar(St), Ch);

А, стесняюсь спросить, почему TEncoding не используешь раз в DXE сидишь?

[artemavd]

Так правильно?

Да, все работает .