delphi在TChart图像上操作使得图像放大和缩小时，怎么获得当前图像放大缩小的ZoomPercent，请列出实现代码。

您可以使用以下代码获得当前图像的缩放百分比：

uses TeeZoom;

var
  Zoom: TChartZoom;
  ZoomPercent: Double;
begin
  Zoom := Chart1.Zoom; // Chart1 是您的 TChart 对象
  ZoomPercent := Zoom.ZoomPercent;
  // 现在 ZoomPercent 变量包含当前图像的放大缩小百分比
end;

在这个例子中，我们使用了 `TeeZoom` 单元中的 `TChartZoom` 类型，它是用于TChart缩放的一个辅助类。我们首先获取 `Chart1` 的 `Zoom` 属性，这是一个 `TChartZoom` 对象。然后，我们可以使用 `ZoomPercent` 属性获取当前的缩放百分比。