Chart上曲線的點鼠標放上去如何顯示橫縱坐標

procedure TForm1.pntsrsSeries1MouseEnter(Sender: TObject);
var
i: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;