anchor.diff:  
     if Assigned(FOnTabMove) then
       FOnTabMove(Self, -1, AIndex);
  +
  +  Result:= Data;
   end;
   
   function TATTabs.DeleteTab(AIndex: integer;
  
positive.code: end;
  
  
  procedure TATTabs.AddTab(
    AIndex: integer;
    const ACaption: TATTabString;
    AObject: TObject = nil;
  
negative.code:         else
            raise Exception.Create('Unknown tab pos');
        end;
        DoPaintColoredBand(C, ARect, NColor, ColorPos);
      end;
    end;
  end;
  