Поменять кодировку в файле, созданном в dos приложении

function Tmain_frm.StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;
 
function Tmain_frm.StrAnsiToOem2(const aStr: String): String;
var
  Len : Integer;
begin
  Result := '';
  Len := Length(aStr);
  if Len = 0 then Exit;
  SetLength(Result, Len);
  AnsiToOemBuff(PAnsiChar(aStr), PAnsiChar(Result), Len);
end;

// функция смены кодировки (перевод в DOS)
Function WinToDos(const S: string):string;
var
  NewStr: string;
begin
  SetLength(NewStr, Length(S));
  CharToOem(PChar(S), PChar(NewStr));
  result :=NewStr;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: AnsiString;
begin
  s := Memo1.Text;
  if OemToAnsi(PAnsiChar(s), PAnsiChar(s)) then
    Memo2.Text := s;
end;