Зажатия клавиши - пояснить принцип - Turbo Pascal

Формулировка задачи:

Суть в чем, когда я нажимаю клавишу н: D программа считывает это присваивает Move=D. Но если клавиша зажата то даже если до этого блока программа еще не дошла переменная все равно равно D. Я пишу н: Move=#37; но программа все равно присваевает Move=D. Как мне справиться с этой проблемой. Если данная тема была создана подскажите пожалуйста и извините за флуд .

if KeyPressed then 
  Move:=ReadKey;
*Уточнения*

Я зажал клавишу на 5 сек и клавиатура успела послать 100 сигналов которые программа не успела обработать, перед тем как программа не дошла до этого блока указанного выше я присваиваю вообще другое значение клавиши Move=#37; Но программа доходит до блока и все равно присвает то значение которое я зажал на клавиатуре. Вопрос: Как это исправить ? Если что то не ясно спрашивайте, не уверен что задал корректно вопрос. Заранее спасибо

Решение задачи: «Зажатия клавиши - пояснить принцип»

Листинг программы

while KeyPressed do ReadKey;

Объяснение кода листинга программы

В цикле while выполняется условие KeyPressed, пока оно истинно.
Выполняется оператор ReadKey, который считывает нажатую клавишу.
Оператор while повторяется, пока KeyPressed остается истинным.