Pascal/Turbo Pascal - volver keypressed a falso

quiero saber como puedo hacer que keypressed vuelva a falso despues de que tiene valor de verdadero
gracias

La función Keypressed devuelve verdadero siempre que haya un caracter en el buffer del teclado. Si luego de invocar esta función devuelve verdadero para hacerla falso debes tomar el o los caracteres del buffer ya sea con Readln(variable) o la función Readkey.