Galkov, не компилится. Ошибка:
D:\HiAsm\Elements\Delphi\code\hiInlineCode_514A36C.pas(39) Error: There is no overloaded version of '_hi_CreateEvent' that can be called with these arguments