Source position: _crw_alloc.pas line 548
type TObjectRegistryAction = procedure(
Ref: Integer;
Obj: TObject;
var Terminate: Boolean;
Custom: Pointer
);