[alanatolich]

poli-smen большое спасибо.
добавил в цикл

Код:

    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;

все заработало.

Объясните пожалуйста эти три процедуры

Код:

PeekMessage
TranslateMessage
DispatchMessage

PeekMessage - я понял, что она проверяет есть ли в очереди сообщение, а вот две другие, не понял, за объяснение буду очень благодарен