解决上一节中延时函数占CPU使用率（达50%）的第二种方法是利用消息机制，通过API函数MsgWaitForMultipleObjects等待消息或超时的到来，从而避免使用循环检测使CPU占用率过高。完整的改进版Delay函数代码如下：

procedure Delay(dwMilliseconds:DWORD);
var
endTick: DWORD;
Event: THandle;
begin
Timer1.Enabled:=False;
Event := CreateEvent(nil,False,False,nil);
try
endTick := GetTickCount+dwMilliseconds;
while (dwMilliseconds > 0) and
(MsgWaitForMultipleObjects(1, Event, False,
dwMilliseconds, QS_ALLINPUT) = WAIT_OBJECT_0+1) do
begin //还在延时期间且有输入消息则执行下面的分发消息
Application.ProcessMessages;
dwMilliseconds := endTick-GetTickcount;
end;
finally
CloseHandle(Event); //关闭事件句柄，销毁事件对象
end;
Timer1.Enabled:=True;
end;
{用到的两个API函数}
//***********************************************************************
//函数：CreateEvent //创建事件对象
//参数：lpEventAttributes=nil //默认的安全符
// bManualReset=False //自动复原：当事件被一个等待线程释放以后，
// //系统将会自动将事件状态复原为无信号状态
// bInitialState=False //指定事件对象的初始状态为无信号状态
// lpName=nil //无名对象
//返回值：事件对象句柄
//***********************************************************************
//**************************************************************************
//函数：MsgWaitForMultipleObjects //等待直到返回条件满足则立即返回
//
//返回条件：①指定(信号)事件对象(第二个参数)中的一个或所有(第三个参数)对象发出信号
//(任意一个 ②指定的等待/超时时间(第四个参数)已到
//满足即可) ③指定的消息(第五个参数)已抵达线程的输入队列
//
//参数: nCount=1 指定列表中的句柄数量为1
// pHandles=Event 指定对象句柄组合中的第一个元素为Event
// fWaitAll=False 任何对象发出信号即可
// dwMilliseconds=dwMilliseconds 等待的毫秒数为延时时间
// dwWakeMask=QS_ALLINPUT 标识特定的消息类型为消息队列的任何消息
//返回值：WAIT_OBJECT_0+1(nCount) 有指定类型的消息到达
//*************************************************************************

以下是MSDN中关于MsgWaitForMultipleObjects的一段说明：

The MsgWaitForMultipleObjects function determines whether the wait criteria have been met. If the criteria have not been met, the calling thread enters an efficient wait state, using very little processor time while waiting for the conditions of the wait criteria to be met.

MsgWaitForMultipleObjects判断等待条件（即返回条件）是否满足，如果不满足，调用线程（在此即主线程）进入高效的等待状态：使用非常少的CPU时间来等候返回条件成立。

更多关于MsgWaitForMultipleObjects的介绍请参见http://msdn.microsoft.com/zh-cn/library/ms931460