Source position: interfacebase.pp line 52
type TPipeEvent = procedure(
AData: PtrInt;
AReasons: TPipeReasons
) of object;