Delphi TChart的功能ZoomPercent，怎么让图像放大时显示上半部分的图像，即向上半部分图像放大？请写出实现代码

可以通过设置TChart的Axes.Top和Axes.Bottom属性来实现放大时显示上半部分的图像。具体实现代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  ZoomPercent: Integer;
begin
  ZoomPercent := 200; // 放大200%
  
  // 获取当前坐标轴范围
  var TopValue := Chart1.Axes.Top.CalcYPosValue(Chart1.Axes.Top.Minimum);
  var BottomValue := Chart1.Axes.Bottom.CalcYPosValue(Chart1.Axes.Bottom.Maximum);
  
  // 计算放大后的坐标轴范围
  var Delta := (BottomValue - TopValue) * (ZoomPercent / 100 - 1) / 2;
  TopValue := TopValue - Delta;
  BottomValue := BottomValue + Delta;
  
  // 设置坐标轴范围
  Chart1.Axes.Top.SetMinMax(TopValue, Chart1.Axes.Top.Maximum);
  Chart1.Axes.Bottom.SetMinMax(Chart1.Axes.Bottom.Minimum, BottomValue);
end;

在上面的代码中，我们首先获取当前坐标轴范围，然后计算出放大后的坐标轴范围，最后设置坐标轴范围即可。其中，CalcYPosValue方法可以将像素坐标转换为实际值，SetMinMax方法可以设置坐标轴范围。