//Функция берёт строку в OEM кодировке CP866 (DOS), и возвращает её перевод
//в ANSI кодировку CP1251 (Windows) в виде отдельной строки:
function TForm1.StrOemToAnsi(const aStr : String) : String;
begin
  Result := '';
 if aStr = '' then Exit;
 SetLength(Result, Length(aStr));
 OemToChar(PAnsiChar(aStr), PChar(Result));
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var
DOS:tstringlist;
begin
DOS:=tstringlist.Create;
DOS.LoadFromFile('D:\9.txt');
DOS.text:=StrOemToAnsi(DOS.text);
Memo1.Text:=DOS.text;
end;