Limpiar el buffer del teclado

[sur-se]

Hola. Estoy tratando de crear un proceso que limpie el buffer de teclado o espere hasta que ya no existan más teclas pendientes de procesar, pero no consigo hacer que funcione. He buscado en el foro pero no he encontrado nada de como limpiar el buffer de teclado.
El código que probé es el siguiente:

while GetInputState do application.processmessages;

También he estado viendo de usar GetQueueStatus, pero no lo veo claro.
Alguien me puede indicar una manera sencilla de realizarlo.
Gracias.

[sur-se]

Hola. Me respondo a mi mismo porque he encontrado una posible solución en la página de Torry's:

procedure EmptyKeyQueue;
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,
    PM_REMOVE or PM_NOYIELD) do;
end;

procedure EmptyMouseQueue;
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST,
    PM_REMOVE or PM_NOYIELD) do;
end;

Un saludo.