Урок на делфи 52. Перехват нажатия клавиатуры и мыши

Задание на Delphi. Перехват нажатия клавиш. (заготовка для шпиона)
https://dear-ruslan.ru/new/urok/delphi/delphiurok52.php
для выполнение задачи использовал компоненты и функции listbox, timer, button, GetAsyncKeyState. и тд.