[Delphi] Странности после AttachConsole

[maloun]

Всем доброго времени суток.
Хочу в своём Desktop'ном приложении реализовать поддержку консоли.
Написал проверку:

program Test;

uses
  Winapi.Windows, Vcl.Forms;

function AttachConsole(dwProcessID: Integer): Boolean;
  stdcall; external 'kernel32.dll';

function ReadKey:Char;
var
  Console:THandle;
  K:DWORD;
  Q:TInputRecord;
Begin
  ReadKey:=#0;
  K:=0;
  Console:=GetStdHandle(STD_INPUT_HANDLE);
  PeekConsoleInput(Console,Q,1,K);
  if K>0 then
  begin
    ReadConsoleInput(Console,Q,1,K);
    if((Q.EventType=1)and(Q.Event.KeyEvent.bKeyDown))then
      ReadKey:=Char(Q.Event.KeyEvent.wVirtualKeyCode);
  end;
end;

var
  C:Char;
  Form:TForm;
begin
  // если программу запустили с параметром -t
  if ParamStr(1) = '-t' then
  begin
    // если программу запустили из консоли
    // и нам удалось к ней присоедениться
    if AttachConsole($FFFFFFFF) then
    repeat
      C:=#0;
      while C=#0 do
        C:=ReadKey;
      Write(C+'!');
    until False;
  end
  else
  begin
    // если программу запустили без параметров или с двойного клика
    // запускаем оконное приложение
    Application.Initialize;
    Application.CreateForm(TForm,Form);
    Application.Run;
  end;
end.

При обычном запуске из cmd "C:\test.exe -t"
перестаёт срабатывать функция ReadKey;
Если записать строку "C:\test.exe -t" в .bat файл
и в cmd запустить уже батник - ReadKey срабатывает (странно).

Хотя мне нужно чтоб работали оба способа.
- Ладно. Допустим что с этим можно жить.
Подумал я и заменил PeekConsoleInput на GetAsyncKeyState,
и добавил очистку окна консоли от текста (+2 функции).

function KeyPressedAsync(Key:Word; Wait:Boolean=True):Boolean;
begin
  Result:=False;
  if GetAsyncKeyState(Key) <> 0 then
  begin
    Result:=True;
    if Wait then // ждем пока клавишу отожмут
      while GetAsyncKeyState(Key) AND $8000 <> 0 DO {Nothing};
    FlushConsoleInputBuffer(STD_INPUT_HANDLE);
  end
end;

procedure ClrScr;
var
  I:Integer;
  _Pos:TCoord;
  Console:THandle;
  Info:TConsoleScreenBufferInfo;
  Output:DWORD;
Begin
  Console:=GetStdHandle(STD_OUTPUT_HANDLE);
  GetConsoleScreenBufferInfo(Console,Info);
  _Pos.X:=0;
  _Pos.Y:=0;
  SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),_Pos);
  for I:=0 to 80 do
  Begin
    _Pos.X:=0;
    _Pos.Y:=I;
    FillConsoleOutputCharacter(Console,#32 ,80,_Pos,Output);
    FillConsoleOutputAttribute(Console,Info.wAttributes,80,_Pos,Output);
  end;
end;

Те же яйца вид сбоку.

var
  C:Char;
  Form:TForm;
begin
  // если программу запустили с параметром -t
  if ParamStr(1) = '-t' then
  begin
    // если программу запустили из консоли
    // и нам удалось к ней присоедениться
    if AttachConsole($FFFFFFFF) then
    repeat
      if KeyPressedAsync(VK_UP) then
      begin
        ClrScr;
        Write('up');
      end;
    until False;
  end
  else
  begin
    // если программу запустили без параметров или с двойного клика
    // запускаем оконное приложение
    Application.Initialize;
    Application.CreateForm(TForm,Form);
    Application.Run;
  end;
end.

Такой способ обрабатывает нажатие клавиш.
Но при вызове из cmd и нажатии стрелки вверх - показывает предыдущую строку которую я вводил в консоль. Чего вроде как происходить не должно. Если вызывать очистку экрана строка исчезнет. Но смотреть на эти моргания на экране при каждом нажатии - конечно не комильфо.
А при вызове из батника - опять всё обрабатывается нормально.
И если создавать свою консоль через AllocConsole - тоже всё работает.

Собственно вопрос: Что не так с запуском из cmd и AttachConsole?