Using Keyboard Buffer

procedure VideBufferClavier[color= #339933;];

[color= #000000; font-weight: bold;]var

  Msg[color= #339933;]: TMsg[color= #339933;];

begin

  [color= #b1b100;]while PeekMessage[color= #009900;](Msg[color= #339933;], [color= #cc66cc;]0[color= #339933;], WM_KEYFIRST[color= #339933;], WM_KEYLAST[color= #339933;],

    PM_REMOVE or PM_NOYIELD[color= #009900;]) [color= #b1b100;]do[color= #339933;];

[color= #990000;]end[color= #339933;];