如何使用DELPHI编制定时程序

创建线程，功能为查询工作完成情况，并通过消息告知主线程；主线程接到消息后，根据消息内容改变标签控件颜色。
线程中延时用自定义过程wait,

查询工作完成情况
发送消息给主线程（application.handle）
延时
....重复以上过程

主线程处理接收到的消息

procedure TThreadObject.Wait(LatencyTime: Cardinal);
var
  FirstTickCount: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
      Application.ProcessMessages();
      sleep(1);
  until ((GetTickCount - FirstTickCount) >= Longint(LatencyTime)) or Terminated;
end;