diff --git a/source/texteditor.pas b/source/texteditor.pas
index 17d59be5..a4243dc1 100644
--- a/source/texteditor.pas
+++ b/source/texteditor.pas
@@ -43,6 +43,7 @@ type
     procedure FormShow(Sender: TObject);
     procedure memoTextChange(Sender: TObject);
     procedure memoTextKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure memoTextClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure SelectLinebreaks(Sender: TObject);
@@ -184,6 +185,7 @@ begin
   FmemoText.WantTabs := True;
   FmemoText.OnChange := memoTextChange;
   FmemoText.OnKeyDown := memoTextKeyDown;
+  FmemoText.OnClick := memoTextClick;
   // Use same text properties as in query/find/replace actions
   actSearchFind.Caption := MainForm.actQueryFind.Caption;
   actSearchFind.Hint := MainForm.actQueryFind.Hint;
@@ -244,6 +246,12 @@ begin
   end;
 end;
 
+procedure TfrmTextEditor.memoTextClick(Sender: TObject);
+begin
+  TimerMemoChange.Enabled := False;
+  TimerMemoChange.Enabled := True;
+end;
+
 procedure TfrmTextEditor.btnWrapClick(Sender: TObject);
 var
   WasModified: Boolean;