Source position: bcbasectrls.pas line 32
type TOnBCPropertyChange = procedure(
ASender: TObject;
AData: PtrInt
) of object;