Русские буквы в консольных приложениях Delphi

Многие сталкивались с проблемой, когда консольное приложение, написанное в среде Borland Delphi отображает при запуске не русские буквы, а крякозябры Решение этой проблемы:

program Project1;
{$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('Это текст будет в консоли по русски!'));
end.