Is there a way to pause a program?

What's wrong with a modal dialog like ShowMessage(''); ?

you will want to place a sleep(10) in that while there otherwise the cpu will go nuts.

Good point cuily! I was just riffing :p

I like a delay or pause.... keeps windows messages happening but delays or pauses the program... like sleep.

I know there may be some contention about this, but I use it a lot and have never had an issue.

Procedure Delay(MSecs: Cardinal);
var
 FirstTick, CurrentTick : Cardinal;
 Done : Boolean;
begin
 Done := FALSE;
 FirstTick := GetTickCount;
 While Not Done do
  begin
   Application.ProcessMessages;
   CurrentTick := GetTickCount;
   If Int64(CurrentTick) - Int64(FirstTick) < 0 Then
    begin
     If CurrentTick >= (Int64(FirstTick) - High(Cardinal) + MSecs) Then
      Done := TRUE;
       End
        Else
         If CurrentTick - FirstTick >= MSecs Then
          Done := TRUE;
  end;
end;

usage:

delay(1000);
button1.click;


John

if it's a thread you want to pause ...

thread.Suspend;
pauses it

thread.Resume;
restarts it

off course can't be done with the main thread otherwise there is no more way of reacting on a button pressed to resume