Do you remember
Delay procedure from Turbo (Borland) Pascal? It was used to pause the program “flow” for specific time interval. In Windows, there is a different style of programming, but sometimes (maybe) the Dealy procedure may be useful. Here is a simple implementation of Delay procedure using Delphi.
There are more ways to “simulate” Delay, but this one is really simple and “nonblocking”. It means, that it pauses the application, but not whole system.
procedure Delay(ms: integer); var now: integer; begin now := GetTickCount + ms; while GetTickCount < now do Application.ProcessMessages; end; procedure TForm1.Button1Click(Sender: TObject); begin Delay(10000); ShowMessage('Finished'); end;