Source position: propertystorage.pas line 110
type TPropertyStorageSaveExceptionEvent = procedure(
Sender: TObject;
const ExClassName: string;
const ExMessage: string
) of object;