Удивительное рядом

В процессе разработки компонента с использованием потоков обратил внимание на вставку кода которую использовал программер, который писал подобный компонент для работы с сетью и периодически делал вставку вот этого кода

while PeekMessage(msg,0,0,0,PM_REMOVE) do
begin
  TranslateMessage(msg);
  DispatchMessage(msg);
end;

решил разобраться, что же делает этот код, оказалось, что ни чего сверх естественного в нем нет
Проще говоря это даже всем известный код, который мы ни раз использовали в местах где могут происходит зависания формы. Ладно не буду томить это код   Application.ProcessMessages;