diff --git a/lcl/interfaces/cocoa/cocoacaret.pas b/lcl/interfaces/cocoa/cocoacaret.pas
index 46360e839e..c05b76ffa2 100644
--- a/lcl/interfaces/cocoa/cocoacaret.pas
+++ b/lcl/interfaces/cocoa/cocoacaret.pas
@@ -454,7 +454,6 @@ begin
   
   if not EqualRect(FOldRect, R) then FView.lclInvalidateRect(FOldRect);
   FView.lclInvalidateRect(R);
-  FView.lclUpdate;
     
   FOldRect := R;
 end;