delphi chart1.canvas.textout 没有输出?

procedure TFChart1.Chart1ClickSeries(Sender: TCustomChart; Series: TChartSeries;
    ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    Str: string;
begin
    Str := Series.YValue[Series.GetCursorValueIndex].ToString;
    Chart1.Canvas.Font.Color := RGB2TColor(29, 220, 44);
    Chart1.Canvas.Font.Size := 30;
    Chart1.Canvas.Font.Style := [fsBold];
    Chart1.Canvas.TextOut(X, Y, Str);
end;

打印一下X,Y的值看看对不对，是不是需要转换坐标。