diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index ba0085d264..fd6866b865 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -2476,6 +2476,8 @@ begin
             ClipHelper.ReadFromClipboard(PrimarySelection);
             if ClipHelper.TextP <> nil then begin
               MoveCaret;
+              if (not FBlockSelection.Persistent) then
+                FBlockSelection.Clear;
               Result := PasteFromClipboardEx(ClipHelper);
             end
             else