[v1s2222]

Аналог ProcessMessages?

Код:

procedure ProcessMessages;
var
  Msg: TMsg;
  lResult: Boolean;
begin
  lResult := true;  
  while lResult do
  begin
    lResult := False;
    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
    begin
      lResult := True;
      if Msg.Message <> WM_QUIT then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end;
  end;
end;