急，让我的程序暂停一下？

Question

//等1秒
ii := 0;
while ii < 1000 do
begin
  Application.ProcessMessage;
  Inc(ii);
end;

Answer 1

正如 genphone_ru(票票) 的方法是在一个循环里加了个Application.ProcessMessages(不是ProcessMessage)让他来处理消息，但是循环的时间是无法定量，循环1000次不一定会是一秒。
用多线程，我也很想用，可没有学过，有人可以介绍我有关线程的书吗？还有个小问题，我可以给这个问题再加点分吗？反正分多对我来说也没多大用处！

Answer 2

zbpro(卧蝶)，你的想法也很好，但是怎么才可以做到呢？说具体点好吗？