diff --git a/source/main.pas b/source/main.pas
index fa28f673..4c52c438 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -4677,6 +4677,8 @@ begin
   if LoadText then
     ActiveQueryMemo.SelText := Text;
   ActiveQueryMemo.UndoList.AddGroupBreak;
+  // Requires to set focus, as doubleclick actions also call this procedure
+  ActiveQueryMemo.SetFocus;
 end;