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.
Что делать?

[Guest]

В Делфи это конечно не прокатит, так как данный метод расчитан чисто для ДОС. Все дело в том, что именно по этим адресам ДОС хранит адрес начала и конца буфера клавиатуры, где их хранит Windows, мне неизвестно. Этот метод не пройдет в Делфи потому, что все приложения в ней компилируются в защищенном режиме (даже консольные), а там уже другая модель памяти и т.д. Аналогично, ты не сможешь записать в Делфи что-то типа:

 xor  ax, ax
int 16h