diff --git a/lcl/interfaces/cocoa/cocoatabcontrols.pas b/lcl/interfaces/cocoa/cocoatabcontrols.pas
index 210d6f06ce..48e7c40967 100644
--- a/lcl/interfaces/cocoa/cocoatabcontrols.pas
+++ b/lcl/interfaces/cocoa/cocoatabcontrols.pas
@@ -63,7 +63,6 @@ type
     { various indexes in fulltabs }
     currentIndex : Integer;     // index of the current tab
     visibleLeftIndex: Integer;  // index shown in TabView on the left
-    visibleRightIndex: Integer; // index shown in TabView on the right
     leftKeepAmount: Integer;    // left tab amount to keep, equals currentIndex-visibleLeftIndex
 
     procedure attachAllTabs; message 'attachAllTabs';
@@ -487,11 +486,9 @@ procedure TCocoaTabControl.updateVariousIndex;
 begin
   if numberOfTabViewItems > 0 then begin
     visibleLeftIndex:= fulltabs.indexOfObject( tabViewItemAtIndex(0) );
-    visibleRightIndex:= visibleLeftIndex + numberOfTabViewItems - 1;
     leftKeepAmount:= currentIndex - visibleLeftIndex;
   end else begin
     visibleLeftIndex:= -1;
-    visibleRightIndex:= -1;
     leftKeepAmount:= 0;
   end;
 end;