jaypi, ага, или for i:=1 to 1000 do sleep (5);

2pick, как ни крути, не будет неосновной поток вешать систему. В том вся и прелесть.