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

When you are creating a splash screen you probably want it to show up as soon as possible. I have seen source codes where the splash screen has been shown on the main form’s OnCreate event and closed on its OnShow event. Well, this is not acceptable. Why? Because the splash screen is only shown [...]