TWriteMethodPropertyEvent

type TWriteMethodPropertyEvent = procedure(

  Writer: twriter;

  Instance: tpersistent;

  PropInfo: PPropInfo;

  const MethodValue: TMethod;

  const DefMethodValue: TMethod;

  var Handled: Boolean

) of object;