procedure TForm1.pntsrsSeries1MouseEnter(Sender: TObject);vari:integer;x1,y1:string;begin pntsrsSeries1.Cursor:=crHandPoint;cht1.showHint:=true;i:=cht1.Series[1].GetCursorValueIndex;x1:=FormatFloat("0.000",cht1.Series[1].XValue[i]);y1:=FormatFloat("0.000", cht1.Series[1].YValue[i]);cht1.Hint:="X: "+x1+" Y: "+y1; end;