在Delphi中，可以使用WaitForSingleObject函数来等待一个对象的信号状态变为可用。该函数的语法如下：
function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD; stdcall;
其中，hHandle参数是要等待的对象的句柄，dwMilliseconds参数是等待的时间长度（单位为毫秒）。
下面是一个使用WaitForSingleObject函数的示例：
varhEvent: THandle; begin
// 创建一个事件对象
hEvent := CreateEvent(nil, False, False, nil);
if hEvent <> 0 then
begin
// 等待事件对象的信号状态变为可用
if WaitForSingleObject(hEvent, INFINITE) = WAIT_OBJECT_0 then
begin
// 事件对象的信号状态为可用，执行相应的操作
ShowMessage('Event signaled');
end;
// 关闭事件对象
CloseHandle(hEvent);
end; end;
在上述示例中，首先使用CreateEvent函数创建了一个事件对象，并将其句柄保存在hEvent变量中。然后，调用WaitForSingleObject函数等待事件对象的信号状态变为可用，在等待期间，程序会一直阻塞。如果等待成功，即WaitForSingleObject函数返回WAIT_OBJECT_0，表明事件对象的信号状态已经可用，此时可以执行相应的操作。最后，使用CloseHandle函数关闭事件对象。
