Source position: interfacebase.pp line 50
type TWaitHandleEvent = procedure(
AData: PtrInt;
AFlags: dword
) of object;