Аналог Application.ProcessMessages()

[BOBAH13]

Сообщение от Alter

Это тест функции на подвисание, проверял как работает с большими циклами(всего-то). Самое главное что работает. Спасибо конечно за модернизацию .

function ProcessMessagee(var Msg :TMsg):Boolean;   
Begin   
 if PeekMessage(msg, 0, 0, 0, PM_REMOVE) then  
 begin  
    TranslateMessage(msg);   
    DispatchMessage(msg);   
 end;   
End;

Если просто в коде вызывать ваш пример, это несовсем верно, если использовать ваш код то должно выглядеть типа

var
  Msg: TMsg;

...

while (ProcessMessagee(Msg)) do ;