如何在TGrid的单元格中渲染TBitmap图像？

procedure TForm1.Grid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas;
  const Column: TColumn; const Bounds: TRectF; const Row: Integer;
  const Value: TValue; const State: TGridDrawStates);
var
  Bitmap: TBitmap;
begin
  if Column.Index = 0 then // 假设只在第一列渲染图像
  begin
    Bitmap := TBitmap.Create;
    try
      // 加载图像文件或创建图像
      Bitmap.LoadFromFile('image.jpg');

      // 设置图像绘制位置和大小
      Bitmap.SetSize(Round(Bounds.Width), Round(Bounds.Height));

      // 绘制图像到单元格
      Canvas.DrawBitmap(Bitmap, Bounds, Bounds, 1);
    finally
      Bitmap.Free;
    end;
  end;
end;