follow sleep command in delphi help.
Sleep command not JUST (wait / stop) when run, its freeze "Application". So I recomemended use sleep command just native application.
For I:=0 To 99 do Application.Progresmessaged;
much better, or use gettickcound in loop