Keypressed в цикле, Как сменить значение keypressed Опции

[Soxatyi]

Такая проблема. Необходимо вставить паузу в цикл, т.е. если во время выполнения цикла я нажал любую клавишу, то программа останавливается на 2 сек., а потом цикл продолжается. Приведу простой ппример:

program delay_key;
var x:integer;
begin
x:=0;
repeat;
x:=x+1; 
writeln(x);
delay(1000);
if keypressed then delay(10000);
until(x=30);
readln;
end.

Здесь такая бага: после одного нажатия клавиши программа дальше всегда вставляет паузу, т.е. сменив значение keypressed на TRUE, она при следующем проходе цикла так и оставляет это значение. Нужно, чтобы от одного нажатия пауза вставлялась один раз. Если я потом опять нажал на кнопку, то пауза опять вставится, и т.д.
По логике, в if..then после длинного delay надо впихнуть что-то вроде keypressed:=FALSE (ибо keypressed суть boolean), но выдается ошибка 122.
Что делать?

[volvo]

Guest, я прекрасно знаю, что это не пойдет в Дельфи (и почему оно там не пойдет - тоже), поэтому и говорю, что не стоит пользоваться тем, что рассчитано на какой-то конкретный компилятор, а вдруг придется перейти на другой? ;)

Так как насчет примера некорректной работы моего метода очистки буфера клавиатуры?

[Guest]

GuestТак как насчет примера некорректной работы моего метода очистки буфера клавиатуры?

Прошу прощения, что не мог ответить ранее, был в поездке. Твой вариант некорректен в том случае, когда пользователь нажал и удерживает клавишу, в твоем случае буфер просто не будет успевать очищаться, в моем - да.

[volvo]

Твой вариант некорректен в том случае, когда пользователь нажал и удерживает клавишу, в твоем случае буфер просто не будет успевать очищаться, в моем - да.

Да твой вариант вообще не компилится на многих компиляторах, о какой корректности ты мне говоришь? Ты мне приведи код, который корректно компилится ХОТЯ БЫ под Дельфи + FPC + TP, а потом начинай искать ошибки в чужих программах !!!

Кстати, в случае если юзер нажал и не отпускает кнопку, мой код также отработает. Только что проверил...