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 + [...]

The easiest way to stop execution of your program is to use the Windows API Sleep() function. The function stops the program for n milliseconds. The only problem is that this function does not properly support multitasking, so during this time your program will not process any Windows messages, so you may want to check [...]