有一种方法:
 hCloseEvent := CreateEvent( nil, True, False, nil )
但hCloseEvent必须是Thandle类型
可这种方法不适合TEvent的Create我把这两种方法都用一下,结果程序用CreateEvent类型运行正确,
而用TEvent.Create马上提示错误