See TCustomPropertyEdit.OnSetPropValueA Event

TOnSetPropValueEventA = procedure (Sender: TObject; var Value: string) of object;