Работа с консолью в GUI приложении

[aLLeXUs]

немного не то что мне нужно.
Я разобрался как с другого приложения прочитать в нормальной кодировке. Нужно в ReadCA убрать

OemToAnsi(@Buf, @Buf);

и вместо

Result := Copy(Buf, 1, rdBuf);

нужно

Result := UTF8ToString(Copy(Buf, 1, rdBuf));

Но проблема с вводом русских букв осталась Я только выяснил что в WriteCA не происходит конвертация с Ansi в OEM866.

var
	Buf: array of AnsiChar;

CharToOem(@Buf, @Buf);

если закомментировать CharToOem то ничего не меняется.