Как заменить абракадабру на русский текст

[VETER15]

Всем привет, я новичок в этом деле и не могу сделать чтобы выводилось кириллицей, то есть на экран выводит абракадабру
Мой код:
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Привет, форумчани');
readln;
end.


Что я получаю можно увидеть на приклепленной картинке
Ребят помоги исправить(((

[BDA]

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  Writeln('Привет');
  readln;
end.

[Serge_Bliznykov]

вариант раз

вариант два

[VETER15]

Не помогло((( все равно абракадабра какая та

[VETER15]

забыл написать что речь идет о консольных приложениях))

[Serge_Bliznykov]

VETER15, попробуйте советы из моего сообщения (см. пост #3)

то, что у Вас консолька - видно в коде невооружённым глазом ({$APPTYPE CONSOLE})


to BDA, проверил у себя (Delphi 5, Windows XP SP3 - тоже не работает ваш код... )

[BDA]

Правой кнопкой мыши по заголовку окна - Свойства - Шрифт - Lucida Console.

[VETER15]

не один и советовал не подошел, я уже замучился гуглить, ничего полезного, а писать транслитом как то не особо охота

[Serge_Bliznykov]

Сообщение от VETER15

не один и советовал не подошел, я уже замучился гуглить, ничего полезного, а писать транслитом как то не особо охота

Windows то у Вас какая, русская?

что даёт такой код?

program StrAnsiToOem;
{$APPTYPE CONSOLE}
uses SysUtils, Windows;

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

begin
  WriteLn(StrAnsiToOem('Теперь в консоли всё будет по русски!'));
  Readln
end.

[BDA]

Windows 7 x64 + RAD Studio 2010.