Source position: propertystorage.pas line 40
type TStoredValueEvent = procedure(
Sender: TStoredValue;
var Value: TStoredType
) of object;