在Delphi中，当我的光标停留在TImage上时，如何放大它？

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  zoomFactor: Integer;
  zoomedBitmap: TBitmap;
begin
  // 设置放大倍数
  zoomFactor := 2;

  // 创建一个新的位图，用于存储放大后的图像
  zoomedBitmap := TBitmap.Create;
  try
    // 设置新位图的尺寸
    zoomedBitmap.Width := Image1.Width * zoomFactor;
    zoomedBitmap.Height := Image1.Height * zoomFactor;

    // 使用图像处理算法将原始图像放大到新位图中
    // 这里可以使用各种图像处理技术，例如插值算法、像素复制等
    // 这里只是简单地将原始图像的每个像素复制到新位图中
    for var i := 0 to Image1.Width - 1 do
    begin
      for var j := 0 to Image1.Height - 1 do
      begin
        var pixel := Image1.Picture.Bitmap.Canvas.Pixels[i, j];
        for var k := 0 to zoomFactor - 1 do
        begin
          for var l := 0 to zoomFactor - 1 do
          begin
            zoomedBitmap.Canvas.Pixels[i * zoomFactor + k, j * zoomFactor + l] := pixel;
          end;
        end;
      end;
    end;

    // 将放大后的图像显示在TImage上
    Image1.Picture.Bitmap.Assign(zoomedBitmap);
  finally
    // 释放临时位图
    zoomedBitmap.Free;
  end;
end;