Source position: interfacebase.pp line 45
type TChildExitEvent = procedure(
AData: PtrInt;
AReason: TChildExitReason;
AInfo: dword
) of object;