GetEvent (TTerminalKeyboardInput)

pt 

IsEventAvailable (TTerminalKeyboardInput)