Delphi и кириллица

program ...
...
var
  StrTmp : String;
...
begin
  //Настраиваем взаимодействие с консолью.
  
  //Входная кодовая таблица консоли установлена в Win-1251.
  SetConsoleCP('1251');
  //Выходная кодовая таблица консоли установлена в Win-1251.
  SetConsoleOutputCP('1251');
  
  //Теперь можно выполнять процедуры Write(), Writeln(), Read(), Readln() с использованием кириллицы:
  
  Writeln('Текст на кириллице.');
  Readln(StrTmp); //В строковую переменную StrTmp прочитан текст в кодировке Win-1251.
end;

Program ...;
...
uses
  SysUtils, Windows;
...
 
//Функция берёт строку в ANSI кодировке (Windows)
//и возвращает её перевод в OEM кодировку (DOS) в виде отдельной строки.
function StrAnsiToOem(aStr : String) : String;
begin
  Result := '';
  if Length(aStr) > 0 then begin
    SetLength(Result, Length(aStr));
    CharToOem(PChar(aStr), PChar(Result));
  end;
end;
 
//Функция берёт строку в OEM кодировке (DOS)
//и возвращает её перевод в ANSI кодировку (Windows) в виде отдельной строки.
function StrOemToAnsi(const aStr : String) : String;
begin
  Result := '';
  if Length(aStr) > 0 then begin
    SetLength(Result, Length(aStr));
    OemToChar(PChar(aStr), PChar(Result));
  end;
end;
 
var
  StrTmp : String;
 
begin
 
  //Можно использовать настройки консоли через SetConsole...().
  //Но в этом случае в свойствах консольного окна следует поменять шрифт на "Lucida Console".
  //Настраиваем консоль на работу с кодовой страницей Win-1251.
  //Входная кодовая страница.
  SetConsoleCP(1251);
  //Выходная кодовая страница.
  SetConsoleOutputCP(1251);
  
  //**************************
  
  //Либо можно пользоваться, например, функциями StrAnsiToOem() и StrOemToAnsi().
  
  Writeln(StrAnsiToOem( 'Это текст на кириллице.' ));
  ReadLn(StrTmp);
  StrTmp := StrOemToAnsi(StrTmp);
  
end.