Код:
h:=CreateEvent(nil,true,false,'');
Создает пустое событие и записывает его Handle (4-байтовый идентификатор) в переменную h.
Код:
WaitForSingleObject(h,time);
Присостанавливает выполнение программы до наступления созданного нами события, но не более чем на time миллисекунд. Так как событие пустое, оно не наступит никогда, и программа будет приостановлена ровно на time мс.
Функция CloseHandle удаляет наше событие, освобождает занимаемую им память и возвращает системе его Handle.