nonvcl Endlosschleife ohne uses Forms

[turboPASCAL]

Das geht so:

Delphi-Quellcode:

procedure ProgressMessages;
var msg: TMsg;
begin
  if PeekMessage(Msg, 0, 0, 0, pm_Remove) then
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

//..
procedure ...
begin
  for x := ... to y do
  begin
    // to do....
    ProgressMessages;
  end;
end;

//...