diff --git a/funcext/tvclib/utslmemo.tsf b/funcext/tvclib/utslmemo.tsf
index 7c1bc79..dec09f4 100644
--- a/funcext/tvclib/utslmemo.tsf
+++ b/funcext/tvclib/utslmemo.tsf
@@ -1449,6 +1449,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
                             if vi<>" " or vi="\t" then 
                             begin
                                 nx := i;
+                                if fCaretX = nx then nx := 1;
                                 break;
                             end 
                         end