Clarify.

Components/ScintEdit.pas

@@ -256,6 +256,7 @@ type
     procedure SetBraceHighlighting(const Pos1, Pos2: Integer);
     procedure SetCursorID(const CursorID: Integer);
     procedure SetDefaultWordChars;
+    procedure SetEmptySelection;
     procedure SetEmptySelections;
     procedure SetLineIndentation(const Line, Indentation: Integer);
     procedure SetSavePoint;
@@ -1344,6 +1345,13 @@ begin
   SetWordChars(GetDefaultWordChars);
 end;
 
+procedure TScintEdit.SetEmptySelection;
+{ Make the main selection empty without scrolling the caret into view and
+  removes additional selections }
+begin
+  Call(SCI_SETEMPTYSELECTION, GetCaretPosition, 0);
+end;
+
 procedure TScintEdit.SetEmptySelections;
 { Makes all selections empty without scrolling the caret into view }
 begin

Projects/Src/CompForm.pas

@@ -1040,7 +1040,7 @@ begin
       if FActiveMemo.SelectionCount > 1 then
         FActiveMemo.RemoveAdditionalSelections
       else if FActiveMemo.SelNotEmpty then
-        FActiveMemo.SetEmptySelections;
+        FActiveMemo.SetEmptySelection;
     end;
   end else if AShortCut = FBackNavButtonShortCut then begin
     if BackNavButton.Enabled then