[SerginhoLD]

я поковырялся немного и вот что нашел:

SetConsoleCP и SetConsoleOutputCP работает, если поменять в свойствах консоли шрифт, например на lucuida console. (правой кнопкой мыши по верхушке окна -> свойства)

работает корректно после смены шрифта:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  WriteLn('русский текст');
  ReadLn;
end.