Русский текст в консольном приложении!

[XerSon]

Всем привет, в Delphi 7 данный модуль работает без нареканий, но в D2009 не догоню как пофиксить ошибку:

unit RuConsole;

interface

implementation

uses
  Windows;

type
  TTextRec = packed record
  Handle: Integer;
  Mode: Word;
  Flags: Word;
  BufSize: Cardinal;
  BufPos: Cardinal;
  BufEnd: Cardinal;
  BufPtr: PAnsiChar;
  OpenFunc: Pointer;
  InOutFunc: Pointer;
  FlushFunc: Pointer;
  CloseFunc: Pointer;
  UserData: array[1..32] of Byte;
  Name: array[0..259] of AnsiChar;
  Buffer: TTextBuf;
end;

function ConOutFunc(var Text: TTextRec): Integer;
var
  Dummy: Cardinal;
  SavePos: Integer;
begin
  SavePos := Text.BufPos;
  if SavePos > 0 then
  begin
    Text.BufPos := 0;
    CharToOemBuff(Text.BufPtr, Text.BufPtr, SavePos);
    if WriteFile(Text.Handle, Text.BufPtr^, SavePos, Dummy, nil) then
      Result := 0
    else
      Result := GetLastError;
  end
  else
    Result := 0;
end;

initialization
  Rewrite(Output);
  TTextRec(Output).InOutFunc := @ConOutFunc; // [DCC Error] RuConsole.pas(82): E2089 Invalid typecast
  TTextRec(Output).FlushFunc := @ConOutFunc; // [DCC Error] RuConsole.pas(82): E2089 Invalid typecast
end.

Что не так?

[GunSmoker]

Как не сложно сообразить, TTextRec в D2009 и выше выглядит иначе.

[XerSon]

Иначе чем? Этим:
TTextRec = packed record
Buffer: TTextBuf;

[alexprey]

Я конечно не знаю, но попробуй в перед выводом текста в консоль поменять кодировку на UTF8. Просто в консоле есть функция для переключения кодировок, и вот в UTF8 отображается норм

[GunSmoker]

Иначе чем?

А запустить поиск по TTextRec в .pas из Delphi\Source не судьба?