var SaveNotifyEvent: TNotifyEvent; begin if OpenDialog1.Execute then begin SaveNotifyEvent:=Memo1.OnChange; Memo1.OnChange:=nil; и далее по тексту