[Bargest]

Так написали же уже.

Сообщение от NumLock

у CreateEvent bManualReset = False.

То есть второй аргумент должен быть FALSE:

Сообщение от MSDN

CreateEvent(
_In_opt_ LPSECURITY_ATTRIBUTES lpEventAttributes,
_In_ BOOL bManualReset,
_In_ BOOL bInitialState,
_In_opt_ LPCTSTR lpName
);

А у тебя:

CreateEvent(nil,true,false,nil);