delphi 如何单击TChartSeries的点时，获得 X Y轴值

//可以使用TChartSeries的OnClick事件来完成
procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    ShowMessage('XValue = '+ FloatToStr(Sender.XValue[ValueIndex]));
    ShowMessage('YValue = '+ FloatToStr(Sender.YValue[ValueIndex]));
end;