anchor.diff:    D: TATTabData;
     R: TRect;
   begin
  -  if not IsScrollMarkNeeded then exit(true);
  +  if not IsScrollMarkNeeded then
  +    begin Result:= true; exit end;
   
     D:= GetTabData(AIndex);
  -  if D=nil then exit(false);
  +  if D=nil then
  +    begin Result:= false; exit end;
     R:= D.TabRect;
   
     case FOptPosition of
  
positive.code:   _InitOptMouseMiddleClickClose = true;
    _InitOptMouseDoubleClickClose = true;
    _InitOptMouseDoubleClickPlus = false;
    _InitOptMouseDragEnabled = true;
    _InitOptMouseDragOutEnabled = true;
  
  type
  
negative.code:     function GetRectOfButtonIndex(AIndex: integer; AtLeft: boolean): TRect;
      function GetScrollPageSize: integer;
      procedure SetOptButtonLayout(const AValue: string);
      procedure SetOptMouseDragEnabled(AValue: boolean);
      procedure SetOptVarWidth(AValue: boolean);
      procedure SetTabIndex(AIndex: integer);
      procedure GetTabCloseColor(AIndex: integer; const ARect: TRect; var AColorXBg,
  