Как очистить буфер клавиатуры?

Приведем 2 метода очистки буфера клавиатуры:

MemW[Seg0040:$1C]:=MemW[Seg0040:$1A];{уравнять адреса начала и конца буфера}

или так

while keypressed do readkey;