Source position: kmemo.pas line 1595
type TKMemoUndoChangeEvent = procedure(
Sender: TObject;
ItemReason: TKMemoChangeKind
) of object;