void __fastcall TForm1::Chart1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { int idx=Series1->GetCursorValueIndex(); if(idx>=0) { double dX,dY; Series1->GetCursorValues(dX,dY); Chart1->Hint="( "+IntToStr((int)dX)+" , "+IntToStr((int)dY)+ " )"; } else { Chart1->Hint=""; } }