没什么好办法。只能加一个Timer控件，在它的OnTimer事件里填加如下代码：
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TDateTime date;
date=Date();
if(date==DateTimePicker1->DateTime)
 {
  // 代码完成相应工作
 }
}

从经验分析，你的程序似乎只用一个Timer控件就够了。

Timer是一个最方便的解决方法。

如果你的程序本身是一个线程，你可以在线程里获取当前时间，方法如下：

Begin;//开始时间
Interval; //你设定的时间间隔
TMyThread:Execute()
{
     Now = GetTickCount();
     if(Now - Begin >= Interval)
     {
         ...//处理你定义的事件
         Begin = Now;
     }
}

Timer控件封装了SetTimer函数，直接调用SetTimer也可以。

你好.我是全职网赚工作者.
如果你有时间有电脑.会打字.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ909065437