Merlin's Delphi Forge

This procedure will let your programs process Windows messages. The only thing is that this function may stop only this procedure while not stopping the rest

var
  dtNow: TDateTime;
begin
  { Before pause }
  dtNow := Now;
  repeat
    Application.ProcessMessages; { Process Windows messages }
  until dtNow + 5 / SecsPerDay < Now; { Pause for 5 seconds }
  { After pause }
end;

Tags: application, borland, code, codegear, delay, Delphi, Kylix, messages, pause, period, period of time, process, program, stop, tdatetime, time, windows, windows messages