BCB 延时DelayTime

三个方法：
１、Sleep();
２、使用TTimer组件；
３、用GetTickCount(win32 API函数)，判断两次之差大于等于５０００即可。

API函数Sleep(60000);

DWORD Start = GetTickCount();
    while(GetTickCount() - Start < 1000*60) //等60秒
    {
      //可以在此添加60秒内需要执行的代码
      //Application->ProcessMessages();加这一句可以保证在这段时间内程序能够执行其它操作
    }

void Delay(DWORD DT)//DT 延时毫秒数
{
  long tt;
  while(GetTickCount()-tt<DT)
  {
    Application->ProcessMessages();
    if(GetTickCount()-tt<DT)
    {
      tt=GetTickCount();
    }
  }
}

BCB 延时DelayTime

原文：http://www.cnblogs.com/gaoquanning/p/3552515.html