procedure TFrm_Chart.Chart_UpMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  AValueIndex:=Series_Up.GetCursorValueIndex;
  if (Chart_Up.Series[0].Count = 0) or 
     (Chart_Up.Series[0].Count = 0)   then   //無資料顯示時不處理
    Exit;
  if Not PtInRect(TChart(Sender).ChartRect, Point(X, Y)) 
     then  Exit; //滑鼠不落在 Chart 邊界內不考慮
    
  if AValueIndex>-1 then
  begin
    lbl_CtPointValue.Visible:=True;
    lbl_CtPointValue.Top    :=Y+5;//+20;
    lbl_CtPointValue.Left   :=X-20;//-30;
    lbl_CtPointValue.Caption
           :=FloatToStr(Series_Up.YValue[AValueIndex])+' ';
  end
  else
    lbl_CtPointValue.Visible:=False;    END;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
    AValueIndex : Integer;
    ValX,ValY : Integer;
begin
  Memo1.Lines.Clear;
  AValueIndex := Series1.GetCursorValueIndex;
  IF AValueIndex > -1 THEN
    BEGIN
      ValX := Series1.CalcXPosValue(Series1.XValue[AValueIndex]);
      ValY := Series1.CalcYPosValue(Series1.YValue[AValueIndex]);
      If (Abs(ValX - X) <= Series1.Pointer.HorizSize) and (Abs(ValY - Y) <= Series1.Pointer.VertSize) then
        Edit1.Text := '('   FloatToStr(Series1.XValue[AValueIndex])   ','   FloatToStr(Series1.YValue[AValueIndex])   ')';
    END
  ELSE
    BEGIN
      Edit1.Text := '';
    END;
end;