readkey не подходит однозначно. Я так понимаю, надо использовать АПИ-функцию GetKeyboardState, но не знаю как организовать цикл обработки сообщений. Это консольное приложение.
- Код: Выделить всё
while GetMessage(AMessage, 0, 0, 0) Do
Begin
TranslateMessage(AMessage);
DispatchMessage(AMessage);
End;
FPC 2.0.0, i386-Win32