delphi关于延迟时间的一点智慧
 
一般的做法：
 Sleep(2000);  // 延迟2秒
此种做法有俩个弊端：
（1）如果实际需要的延迟时间不需要2秒，则明显有延迟时间浪费；
（2）如果实际需要的延迟时间超过2秒，则很可能发生不可预料的错误。
 
改进的做法：
      repeat
        Sleep(10);
      until
        FileExists('c:\temp\invoice.pdf')=True;
优点：将一次大的延迟时间分割成小的，一旦条件成立就退出了延迟，
使得延迟的时间同实际需要的几乎一样。也杜绝了前面第二种情况错误的发生。