DELPHI TIMER问题

Question

在DELPHI里面怎样实现？起两个线程，一个线程等到早上7点执行生成报表的程序，另外一个线程等到23点执行上传报表的程序。

Answer 1

放一个timer控件在窗体上
将interval置为60000（一分钟）
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if FormatDateTime('hh:mm',now)='07:00' then
    执行生成报表的程序
    else if FormatDateTime('hh:mm',now)='23:00' then
    执行上传报表的程序
end;

Answer 2

用GetTickCount或Now函数比较好的http://lysoft.7u7.net