Source position: kmemo.pas line 1696
type TKMemoBlockNotifyEvent = procedure(
Sender: TObject;
ABlock: TKMemoBlock;
var Result: Boolean
) of object;