I have problem with pop-up screen. The code can be compile and run but when the pop-up screen appear, I can't close the pop-up screen. I have to click a lot of times on the OK button.
Here is the code:
i:Integer; begin for i := 0 to 4 do begin sleep(4000); //stops for 4000 milliseconds if i = 4 then showMessage('Please get up and relax your eyes'); end;
May I know what is the problem with the code? Thank you.