I've thoght of this, but I have another problem. Later I need the legend the mouse is over in OnMouseMove: (Sender AS TChart).CalcClickedPart(Point(X, Y), Part); IF Part.PointIndex >= (Sender AS TChart).Series[0].Count THEN Exit; IF Part.Part = cpLegend THEN FCurrSlice := Part.PointIndex This will m...