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