如何在Delphi中正确显示组合图像

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('background.jpg');
  finally
    Bitmap.Free;
  end;

var
  Bitmap: TBitmap;
  Background: TBitmap;
begin
  Bitmap := TBitmap.Create;
  Background := TBitmap.Create;
  try
    Background.LoadFromFile('background.jpg');
    Bitmap.SetSize(Background.Width, Background.Height);

    Bitmap.Canvas.Draw(0, 0, Background); // 在画布上绘制背景图像
    // 在画布上绘制其他图像，例如添加文本、绘制几何图形等

    // 显示图像
    Image1.Picture.Assign(Bitmap); // Image1是一个TPaintBox或TImage控件
  finally
    Bitmap.Free;
    Background.Free;
  end;

var
  Bitmap: TBitmap;
  Background: TBitmap;
  Overlay: TBitmap;
begin
  Bitmap := TBitmap.Create;
  Background := TBitmap.Create;
  Overlay := TBitmap.Create;
  try
    Background.LoadFromFile('background.jpg');
    Overlay.LoadFromFile('overlay.png');
    Bitmap.SetSize(Background.Width, Background.Height);

    Bitmap.Canvas.Draw(0, 0, Background); // 绘制背景图像
    Bitmap.Canvas.Draw(0, 0, Overlay); // 绘制覆盖图像

    // 显示组合图像
    Image1.Picture.Assign(Bitmap); // Image1是一个TPaintBox或TImage控件
  finally
    Bitmap.Free;
    Background.Free;
    Overlay.Free;
  end;