From Clomosy Docs
procedure Clomosy.SleepAndCall(millisecond:Integer,BeforeSleep,AfterSleep:String);
The sleepAndCall function represents a function that waits for a specific duration and then executes a specified callback function. This type of function can be used to wait for the completion of a specific task and then proceed to execute another function.
The first parameter specifies the duration to wait (in milliseconds). The second parameter represents the action to be triggered before the waiting process. The third parameter executes the specified callback function after the waiting process is completed.
Example
var
MyForm:TclForm;
sleepBtn : TclButton;
void getAfterSleep;
{
sleepBtn.Text = 'AFTER SleepAndCall';
}
void getBeforeSleep;
{
sleepBtn.Text = 'BEFORE SleepAndCall';
//MyForm.StartProcessMessages(5000);
Clomosy.SleepAndCall(3000,'','getAfterSleep');
}
{
MyForm = TclForm.Create(Self);
sleepBtn= MyForm.AddNewButton(MyForm,'sleepBtn','Click');
sleepBtn.TextSettings.Font.Size=30;
sleepBtn.Align = alCenter;
sleepBtn.Height = 70;
sleepBtn.Width = 200;
MyForm.AddNewEvent(sleepBtn,tbeOnClick,'getBeforeSleep');
MyForm.Run;
}