From d2df6a630cce1a53c11eece1399fbf68e4472de3 Mon Sep 17 00:00:00 2001
From: Margers <margers.roked@inbox.lv>
Date: Thu, 9 Jan 2025 21:26:39 +0000
Subject: [PATCH] Paste problem fix

---
 packages/ide/weditor.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/ide/weditor.pas b/packages/ide/weditor.pas
index 2a861e22e0..a2cab9cac6 100644
--- a/packages/ide/weditor.pas
+++ b/packages/ide/weditor.pas
@@ -2081,11 +2081,11 @@ begin
       exit;
     end; *)
   if S='' then
-    CP:=0
+    CP:=X+1
   else
     begin
      CP:=0; RX:=0;
-     while (RX<=X) and (CP<=length(S)) do
+     while (RX<=X) {and (CP<=length(S))} do
       begin
         Inc(CP);
         if (CP<=length(S)) and